| 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 |