#!/usr/bin/perl

use strict;
use warnings;
use English qw/-no_match_vars/;
use URI;
use URI::QueryParam;

my $uri = URI->new(q{http://foo.bar/});
$uri->path(q{/baz/bak});
my %form = (
    'quux' => 'alpha jub jub',
);
$uri->query_form(%form);

print qq{$uri\n};