Select Code to Download

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