@links = $mech->links;

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


##</code><code>##


@links = $mech->links;

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