#!/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/\