foreach ($mech->links()) { print "$_<br>"}

##</code><code>##

    $mech->get( $url );
    $mech->follow_link( url_regex => qr/Frogs and Toads/i );