Select Code to Download

print "Content-Type: text/html\n\n";
foreach (keys %ENV) { print "$_ => $ENV{$_} <BR>\n"; }

use Data::Dumper;
print "Content-Type: text/plain\n\n";
print Dumper \%ENV;