test.pl 119 B

123456
  1. #!/usr/bin/perl
  2. print "Content-type: text/html\n\n";
  3. foreach $key (keys %ENV) {
  4. print "$key --> $ENV{$key}<br>";
  5. }