for my $link ( $mech->links ) {
   # do whatever
}