Select Code to Download

my $mech = WWW::Mechanize->new( autocheck => 0 );
my $res = $mech->get('does.notexist.example');
$res->is_success
    or print "Uhoh\n";

my $mech = WWW::Mechanize->new();
my $connected = eval {
...
if (! $connected) {
    print "Uhoh\n";
};

use Try::Tiny;

...
    print "Uhoh: $_\n";
};