##

    read (STDIN, $in, $ENV{'CONTENT_LENGTH'});
    @in = split(/&/, $in);
    foreach $i (0 .. $#in)
    {
        $in[$i] =~ s/\*/ /g;
        $in[$i] =~ s/%(..)/pack("c", hex($1))/ge;
        ($key, $val) = split(/=/, $in[$i],2);
        $in{key} .= '\0' if (defined($in{$key}));
        $in{key} .= $val;
    }