print "Content-type: text/html\n\n"; if ($ENV{'REQUEST_METHOD'} eq 'GET') { print "GET \n"; print "GET: ",$ENV{'QUERY_STRING'}; } elsif ($ENV{'REQUEST_METHOD'} eq 'POST') { print "POST \n"; print "POST: ",; } else { print "I couldn't handle.\n"; }