env.pl


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;