eval {
  ($stdout, $stderr, $exit) = $ssh->cmd("df -k $dump_dir");
};

if ($@)
{
  print "SSH Connection attempt failed\n"
    if ($@ =~ m/Permission denied/i);
}