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