for my $link ($mech->find_all_links) { # on this page
  $mech->get($link->url);
  unless ($mech->success) {
    warn "can't get ".$link->url.", status: ".$mech->status;
  }
  $mech->back;
}