CGI Form
############################################################
$requestType = $ENV{"REQUEST_METHOD"};
print "Content-type: text/plain\n\n";
if($requestType eq "GET")
{
&readGetData(*data);
# Print the data that we read
print "The GET data is:\n\n";
print $data;
print "\n";
}
sub readGetData
{
local(*queryString) = @_ if @_;
$queryString = $ENV{"QUERY_STRING"};
return 1;
}