my $ua = WWW::Mechanize->new( autocheck => 1 );
 ...
 eval { $ua->get(...); 1 } or do {
    warn "Caught a fish: $@";
    next LOOP;
 }