#!/usr/local/bin/perl
use CGI;
use CGI::Carp "fatalsToBrowser";
my $cgi = new CGI;
print "Content-type: text/html\n\n";
print "\n";
#print "Environment Variables
\n";
#print "\n";
#while (($key,$value) = each %ENV) {
# print "- $key is $value
\n";
#}
#print "
\n";
print "Decoded CGI attributes
\n";
print "\n";
foreach $thing ($cgi->param) {
print "- $thing has value " . &escape($cgi->param($thing)) . "
\n";
}
print "
\n";
print "\n";
exit 0;
sub escape {
my $thing = shift;
$thing =~ s/&/\&/g;
$thing =~ s/\"/\"/g;
$thing =~ s//\>/g;
return $thing;
}