use strict;
use CGI qw/:standard/;
print "content-type: text/html\n\n";
foreach (param) { print "CGI ".$_."; "; }
print "<table>";
foreach (keys %ENV) { print '<tr><td>'.$_.'</td><td>'.$ENV{$_}.'</td></tr>'; }
print '</table>';