$myTmp = $ENV{'QUERY_STRING'};
@words = split '&',$myTmp;
my $counter = 0;

while ($words[$counter]) {
    my @tmpWords = split '=',$words[$counter];
    $tmpWords[1] =~ tr/+/ /;
    $tmpWords[1] =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
    my $tmpName = $tmpWords[0];
    $$tmpName = $tmpWords[1];
    $counter++;
}