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

my $cgi=new CGI;
print header,start_html;

print h1("Environment");
print table(
Tr(th("Environment Variable"),th("Value")),
map { Tr(td($_),td($ENV{$_})) } sort keys %ENV );
print hr;

print h1('CGI Varialbes');
print table (
Tr(th("parameter"),th("parameter value")),
map { Tr(td($_),td($cgi->param($_))) } sort $cgi->param ) ;

print end_html;