| OLD | NEW |
| 1 #!/usr/bin/perl -w | 1 #!/usr/bin/perl -wT |
| 2 | 2 |
| 3 print "Content-type: text/plain\n"; | 3 print "Content-type: text/plain\n"; |
| 4 print "Content-Length: 0\n"; | 4 print "Content-Length: 0\n"; |
| 5 my $cl = $ENV{'CONTENT_LENGTH'}; | 5 my $cl = $ENV{'CONTENT_LENGTH'}; |
| 6 my $ct = $ENV{'CONTENT_TYPE'}; | 6 my $ct = $ENV{'CONTENT_TYPE'}; |
| 7 my $method = $ENV{'REQUEST_METHOD'}; | 7 my $method = $ENV{'REQUEST_METHOD'}; |
| 8 if (defined $cl) { | 8 if (defined $cl) { |
| 9 print "REQLENGTH: $cl\n"; | 9 print "REQLENGTH: $cl\n"; |
| 10 } | 10 } |
| 11 if (defined $ct) { | 11 if (defined $ct) { |
| 12 print "REQTYPE: $ct\n"; | 12 print "REQTYPE: $ct\n"; |
| 13 } | 13 } |
| 14 print "REQMETHOD: $method\n"; | 14 print "REQMETHOD: $method\n"; |
| 15 | 15 |
| 16 print "\n"; | 16 print "\n"; |
| OLD | NEW |