Help for this page

Select Code to Download

Select or download this

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

Select or download this

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