14 lines
300 B
Perl
14 lines
300 B
Perl
|
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();
|