my $connected = eval {
          $m->get($link);
          1
        };
        if (! $connected) {
           #do something else
        }