perl -MWWW::Mechanize -le '$m=WWW::Mechanize->new; $m->get("http://perlmonks.org/#wut"); print $m->uri->fragment'
wut