Name:

Address:

City: State: Zip:

Overall rating:

Needs Improvement: Average: Above Average: Excellent:

Comments:

############################################################ $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; }