in reply to WWW::Mechanize form

rtfm 
print $mech->uri();

[download]

In Section Seekers of Perl Wisdom