#!/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();
[download]

That way, the point is drilled in verbosely, to use CGI. :-)

And incidentally, for posterity, it will come in handy to visit this link.

mkmcconn