#!/usr/bin/perl
use CGI qw(:cgi-lib);
&ReadParse;
sub wash;
print "Content-type: text/html\n\n";
foreach $key (keys %in) {
print wash($key)." --> ".wash($in{$key})."
\n";
}
print "
";
foreach $key (keys %ENV) {
print wash($key)." --> ".wash($ENV{$key})."
\n";
}
sub wash {
my $v = shift;
$v =~ s/\&/\&/g;
$v =~ s/\>/\>/g;
$v =~ s/\\</g;
return $v;
}