#!/usr/bin/perl ## ## printenv -- demo CGI program which just prints its environment ## use CGI qw/:standard/; my $query = new CGI; print "Content-type: text/html\n\n"; print <

CGI Support

Test form
Input1 :
Input2 :

Option :

EOD if (param()) { print qq(

Form vars\n

\n);
  foreach $p (param()) {
        print qq($p = '), param($p), qq('\n);
  }
  print qq(
\n); } print qq(

Environment vars\n

\n);

foreach $var (sort(keys(%ENV))) {
    $val = $ENV{$var};
    $val =~ s|\n|\\n|g;
    $val =~ s|"|\\"|g;
    print "${var}=\"${val}\"\n";
}

print qq(
\n); print qq(\n\n);