while ( $mech->links )

##</code><code>##

for ( $mech->links )