@links = $mech->links;

foreach (@links){
  print "Would get --> $_->url()\n";
}