my %FORM = ();
my @QUERYARR = split(/\&/, $ENV{'REQUEST_URI'});
my $i;

for $i (0 .. $#QUERYARR) {
    my ($key,$val) = split(/=/, $QUERYARR[$i]);
    $val =~ tr/+/ /;
    $val =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;  #this takes care of all the urlencoded data
    $FORM{$key} = $val;
}