$mech = new WWW::Mechanize;
$mech->get("http://domain.com/page");
print $mech->base;


##</code><code>##

for ($mech->links) {
   print $_->url_abs, "\n";
}