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";

##</code><code>##

my $uri_query = URI::Query->new('http://www.foo.com/cgi-bin/foo.pl');
foreach ( qw( foo bar baz ) ) {
    $uri_query->set_param($_, param($_));
}
print $uri_query->as_string();