| OLD | NEW |
| 1 #!/usr/bin/perl -w | 1 #!/usr/bin/perl -wT |
| 2 | 2 |
| 3 print "Content-type: text/plain\n\n"; | 3 print "Content-type: text/plain\n\n"; |
| 4 | 4 |
| 5 if ($ENV{'REQUEST_METHOD'} eq "POST") { | 5 if ($ENV{'REQUEST_METHOD'} eq "POST") { |
| 6 read(STDIN, $request, $ENV{'CONTENT_LENGTH'}) | 6 read(STDIN, $request, $ENV{'CONTENT_LENGTH'}) |
| 7 || die "Could not get query\n"; | 7 || die "Could not get query\n"; |
| 8 print $request; | 8 print $request; |
| 9 } else { | 9 } else { |
| 10 print "Wrong method: " . $ENV{'REQUEST_METHOD'} . "\n"; | 10 print "Wrong method: " . $ENV{'REQUEST_METHOD'} . "\n"; |
| 11 } | 11 } |
| OLD | NEW |