Select Code to Download

    connect($sock, sockaddr_in($rport, $raddr))
        or die "Can't connect to $ssh->{host}, port $rport: $!";

eval { my $ssh = Net::SSH::Perl->new($tsip) }
if ( $@ )
...
{
   # Success
}