blob: 694abb78f204a26b3dc05372bab7d1964fedf69d (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
#!/usr/bin/perl
use strict;
use CGI qw(:standard);
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;
|