for my $result ( $mech->links() ){
   print "title: $result->name\n";
   print "text: $result->text\n";
}