$ perl -l use CGI; my $queryParams = { a => [qw/ a >< a/], qw/ b b>new( $queryParams )-> query_string; __END__ c=c%3E%3Cc;a=a;a=%3E%3C;a=a;b=b%3E%3Cb