#!perl
use CGI qw( :standard );

print header;
print <<End_Begin;
<HTML>
   <HEAD>
      <TITLE>Environment Variables...</TITLE>
   </HEAD>
   <BODY>
   <TABLE>
End_Begin

foreach $variable ( sort( keys( %ENV ) ) )
{
   print <<End_Row;
   <TR>
   <TD><STRONG>$variable</STRONG></TD>
   <TD>$ENV{$variable}</TD>
   </TR>
End_Row
}

print <<End_Finish;
   </TABLE>
   </BODY>
</HTML>
End_Finish
# Must include newline after End_Finish!