Here is the source:

Write "Content-type: text/plain;charset=us-ascii".
Write CarriageReturn, Linefeed, CarriageReturn, Linefeed.
Set RequestMethod to GetEnvironmentVariableValue("REQUEST_METHOD").
Writeline "** Request method is ", RequestMethod.
If RequestMethod = "GET" then
  (
  Writeline "Good! I can do GET.".
  Writeline "** Query string is ",
            GetEnvironmentVariableValue("QUERY_STRING").
  )
else
  (
  Writeline "Content length (string) = ",
            GetEnvironmentVariableValue("CONTENT_LENGTH").
  Writeline "Number of bytes actually read = ",
            GetUndecodedCGIDataSize().
  Writeline "Encoded form contents (from stdin) are: ".
  Writeline GetUndecodedCGIData().
  ).
Writeline.
For i from 1 to GetDecodedCGIVariableCount() do
  Writeline "Key=[",
            GetDecodedCGIVariableName(i),
            "] val=[",
            GetDecodedCGIVariableValue(i),
            "]".
Writeline.
Set FirstName to GetDecodedCGIVariableValue("firstname").
Set LastName to GetDecodedCGIVariableValue("lastname").
Set FavoriteNumber to GetDecodedCGIVariableValue("favorite number").
Writeline "Howdy, stranger. May I call you '",
          FirstName, " ", LastName, "',".
Writeline "or would you prefer I call you '",
          LastName, ", ", FirstName, "'?".
Writeline "By the way, is your favorite number really ",
          FavoriteNumber, "?".