my $ssh2 = Net::SSH2->new;
die "can't connect" unless $ssh2->connect("ip");


##</code><code>##

Net::SSH2::connect: failed to connect to <ip>:22: Connection refused at test.pl at line 10 

##</code><code>##


Net::SSH2::connect: failed to connect to ip:22: Connection refused at ./scripts/ssh_subrtns.pl line 2644



##</code><code>##

        my $ssh2 = Net::SSH2->new();

        #return "Can not connect $rip " unless ($ssh2->connect($rip)); ## or die "Can not Connect $rip ";

        if ( ! ($ssh2->connect($rip)) ) or die "Can not Connect $rip ";
        {
                print qq{<font color="red"><b> Can't Connect to $rip  </b></font></body></html>} ;
                exit;
        }