use strict;
use CGI;

my $c=CGI->new();

$c->param('foo'=>'bar');
$c->param('baz'=>'boo');

print $c->url(-query=>1,-relative=>1);

__END__
?foo=bar;baz=boo