$ perl -MURI -e " print URI->new( shift )->fragment " http://a/#frag
frag