#!/usr/bin/perl -w
#-----------------------------------
# Script to dump my environment to a browser from CGI. 
# CAVEAT:  Never, ever by all that is holy leave this script in a 
#          production environment

use strict;
use CGI qw/ :all /;

my $cgi = new CGI;
print $cgi->headers,$cgi->start_html;  # start the show;
print hr,b("ENV Dump");
print ul(
      map { li($ENV{$_} } keys %ENV
);
print hr,b("CGI Param Dump");
print ul(
         map { li($cgi->param($_)) } $cgi->param
);
print $cgi->end_html;
exit(0);