my $query_str = join('&', map("@{[CGI->escape($_)]}=@{[CGI->escape(param($_))]}", qw(foo bar baz));
print "http://www.foo.com/cgi-bin/foo.pl?$query_str";