You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
14 lines
300 B
Perl
14 lines
300 B
Perl
5 years ago
|
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();
|