use strict;
use warnings;
use WWW::Mechanize;
my $url = 'http://google.com';

my $mech = WWW::Mechanize->new();

warn $url;
warn $mech->get($url);
warn $mech->uri();

__END__
http://google.com at - line 9.
HTTP::Response=HASH(0x1d7f160) at - line 10.
http://www.google.com/ at - line 11.