@links = $mech->links;

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