#!/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})."<br>\n";
}

print "<br>";

foreach $key (keys %ENV) {
    print wash($key)." --> ".wash($ENV{$key})."<br>\n";
}

sub wash {
    my $v = shift;
    $v =~ s/\&/\&amp;/g;
    $v =~ s/\>/\&gt;/g;
    $v =~ s/\</\&lt;/g;
    return $v;
}