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