if ($ENV{'REQUEST_METHOD'} eq "POST") {
    read(STDIN, $request,$ENV{'CONTENT_LENGTH'}) or die "Could not get query\n";

}

@parameters = split(/&/,$request);

foreach $p (@parameters){
    $p =~ s/\+/ /g;
    ($para,$value) = split(/=/,$p);
    $para =~ s/%([0-9A-F][0-9A-F])/pack("c",hex($1))/ge;
    $value =~ s/%([0-9A-F][0-9A-F])/pack("c",hex($1))/ge;
    $PAIRS{$para} = $value;
}