delete @ENV{qw(IFS CDPATH ENV BASH_ENV)};
print "Content-Type: text/html\n\n";
print "$_ => $ENV{$_}<br>\n" foreach (sort keys %ENV);