foreach $var_name ( sort keys %ENV ) {
print "<p><b>$var_name</b><br>";
print $ENV{$var_name};
}