Help for this page

Select Code to Download


  1. or download this
    if ($ENV{'REQUEST_METHOD'} eq "GET") {  
$form_data = $ENV{'QUERY_STRING'};   
 }else {
$form_data = <STDIN>;  
}
  2. or download this
    #!/usr/bin/perl
use CGI;
...
my $method = $q->request_method();
print "$method\n";
#which should give either 'POST', 'GET' or 'HEAD'.
  3. or download this
    #!/usr/bin/perl
use warnings;
...
foreach my $name ( param() ) {
   print "$name: '", param($name), "'\n";
   }