use CGI qw(:standard :cgi-lib); print header; print "<html>"; foreach my $key (keys %ENV) { print "$key $ENV{$key}<br />"; } print "</html>";