3
print "Content-type: text/html\n\n";
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>";
11
print "Wrong method: " . $ENV{'REQUEST_METHOD'} . "\n";