eval {
  my $ssh = Net::SSH::Perl->new($host);
  $ssh->login($user, $pass);
  my ($LS_OUT, $LS_ERR, $LS_EXIT) = $ssh->cmd('ls -la');
};
$@ and print "SSH failed: $@";

print "This is END where i want to see\n"