use strict;
use CGI qw(:standard);

print header, start_html;

for my $k (sort keys %ENV) {
  print "$k = $ENV{$k}<br>";
}

print end_html;