$ perl -wl -MURI -e '$url=URI->new("http://www.perlmonks.org/?parent=839419;node_id=3333"); print $url->host;'