laptop:~> perl -l -w -MURI
my $u = new URI();
$u->query_form('foo'=>'bar','foo'=>'baz');
print join ':', $u->query_form;
__END__
foo:bar:foo:baz