use URI::URL;
$url1 = new URI::URL 'http://perlmonks.org/index.pl?node=boo_radley' || die;
print  join "\n",$url1->crack();