use Net::OpenSSH;

my $dir = '/mypath';
my $host = 'myhost';

my $ssh = Net::OpenSSH->new($host, user => adm_garcimo);
  $ssh->error and
    die "Couldn't establish SSH connection: ". $ssh->error;