blob: 06db507ca4c4eda4c709200a5c2c3e87dd6611ce (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
#!/usr/bin/perl
use strict;
use CGI qw(:standard);
use CGI::Carp 'fatalsToBrowser';
print header;
print start_html('env');
print CGI::start_table();
foreach my $row (keys %ENV)
{
print Tr(td[$row,$ENV{$row}]);
}
print CGI::end_table();
print end_html;
|