use CGI qw/:standard/;
print header();

map { print "$_ => $ENV{$_}\n" } keys(%ENV);