Select Code to Download

use strict;
use warnings;
...
print($uri2->canonical, "\n");

print(URI::eq($uri1, $uri2) ? "equal" : "not equal", "\n");

http://host/bob?joe=1&jack=2
http://host/bob?jack=2&joe=1
not equal