use URI;
use URI::QueryParam;
use Data::Compare;

my $uri1 = URI->new('/bob?joe=1&jack=2');
my $uri2 = URI->new('http://host/bob?jack=2&joe=1');

print "URI's are ",
    Compare(
        {map {($_ => $uri1->query_param($_))} $uri1->query_param},
        {map {($_ => $uri2->query_param($_))} $uri2->query_param},
    ) ? "" : "not ", "identical.\n"
;