use URI::Escape qw(uri_unescape);
    my $query_string = uri_unescape $ENV{QUERY_STRING};