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();