1#!/usr/bin/perl -w
2
3print "Content-type: text/html\n\n"; 
4
5if ($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