| OLD | NEW |
| 1 #!/usr/bin/perl -w | 1 #!/usr/bin/perl -wT |
| 2 | 2 |
| 3 use CGI; | 3 use CGI; |
| 4 | 4 |
| 5 my $cgi = new CGI; | 5 my $cgi = new CGI; |
| 6 | 6 |
| 7 # Just dump whatever was POSTed to us as text/plain. | 7 # Just dump whatever was POSTed to us as text/plain. |
| 8 | 8 |
| 9 print $cgi->header('text/plain'); | 9 print $cgi->header('text/plain'); |
| 10 | 10 |
| 11 # Different versions of the CGI module use different conventions for accessing | 11 # Different versions of the CGI module use different conventions for accessing |
| 12 # the POST data. Because at least one of them will be empty, there is no harm | 12 # the POST data. Because at least one of them will be empty, there is no harm |
| 13 # in printing both. | 13 # in printing both. |
| 14 print $cgi->param('POSTDATA'); | 14 print $cgi->param('POSTDATA'); |
| 15 print $cgi->param('keywords'); | 15 print $cgi->param('keywords'); |
| OLD | NEW |