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;
        }