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

##</code><code>##

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