#!/usr/bin/perl -w
use strict;
use CGI qw(:standard);

print CGI::header(),"\n\n";

print CGI::start_html(),"\n\n";
print CGI::start_table();

print CGI::Tr(CGI::th({-align => 'left'},['KEY','VALUE'])),"\n\n";
foreach my $key (sort keys %ENV ) {
     print CGI::Tr( CGI::td( {-align => 'left'},[$key ,$ENV{$key}])), "\n";
}


print CGI::end_table(),"\n\n";
print CGI::end_html();