use warnings;
use strict;
use CGI qw( :standard );

print header(), start_html( "Environment Variables" );

print '<table>';

foreach my $variable ( sort( keys %ENV ) ) {
   print Tr( td( b( "$variable:" ) ), 
             td( i( $ENV{ $variable } ) ) );
}

print '</table>', end_html();