Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
use CGI;
...
foreach my $key (keys %ENV) {
    print "$key: $ENV{$key}<br />\n";
}
  2. or download this
    #!/usr/bin/perl
use Apache;
...
foreach my $key (keys %ENV) {
    print "$key: $ENV{$key}<br />\n";
}
  3. or download this
    if ($ENV{MOD_PERL}) {
    use Apache;
...
} else {
    print $cgi->header();
}