Help for this page
eval { my $ssh = Net::SSH::Perl->new($host); ... $@ and print "SSH failed: $@"; print "This is END where i want to see\n"