($ENV{'REQUEST_METHOD'} eq "POST") and read(STDIN, $input, $ENV{'CONTENT_LENGTH'});
($ENV{'REQUEST_METHOD'} eq "GET") and ($input = $ENV{'QUERY_STRING'});
my @pairs = split(/;/, $input);
foreach (@pairs) {
my ($name, $value) = split /=/;
# Un-Webify plus signs and %-encoding
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/<!--(.|\n)*-->//g;
$value =~ s/\n/<br>/g;
$value =~ s/\r//g;
$in{$name} = $value;
}