use warnings;
use strict;
use CGI qw( :standard );
print header(), start_html( "Environment Variables" );
print '';
foreach my $variable ( sort( keys %ENV ) ) {
print Tr( td( b( "$variable:" ) ),
td( i( $ENV{ $variable } ) ) );
}
print '
', end_html();