readparse(*input);

my $strTemp;
foreach $strTemp(keys %input) {
	${($strTemp)} = $input{$strTemp};
}

sub readparse {
	local (*in) = @_ if @_;
    local ($i, $loc, $key, $val);
    if ($ENV{'REQUEST_METHOD'} eq "GET") {
        $in = $ENV{'QUERY_STRING'};
    }
    elsif ($ENV{'REQUEST_METHOD'} eq "POST") {
        read(STDIN,$in,$ENV{'CONTENT_LENGTH'});
    }
	@in=split(/&/,$in);
    foreach $i (0..$#in) {
        $in[$i]=~ s/\+/ /g;
        ($key, $val) = split(/=/,$in[$i],2);
        $key =~ s/%(..)/pack("c",hex($1))/ge;
        $val =~ s/%(..)/pack("c",hex($1))/ge;
        $in{$key} .= "\0" if (defined($in{$key}));
        $in{$key} .= $val;
    }
    return 1;
}