1 #!/usr/bin/perl -w 2 3 print "Content-type: text/html\n\n"; 4 5 if ($ENV{'REQUEST_METHOD'} eq "POST") { 6 read(STDIN, $request, $ENV{'CONTENT_LENGTH'}) 7 || die "Could not get query\n"; 8 print "<pre>$request</pre>"; 9 print "<script>if (window.testRunner) testRunner.notifyDone();</script>"; 10 } else { 11 print "Wrong method: " . $ENV{'REQUEST_METHOD'} . "\n"; 12 } 13
