sub SSH_Reference
{
        #print "Starting SSH_REFERENCE......<br>";
        ($rip, $rusr, $rpwd) = (shift, shift, shift);
        chomp($rip, $rusr, $rpwd);

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

        $auth_fail{$rip}="Failed";

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

        #print "$ssh2---$rip----$rusr---$rpwd---<br>";
        if ( ! ($ssh2->connect($rip)) )  ## or die "Can not Connect $rip ";
        {
                print qq{<font color="red"><b> Error: Cannot connect to $rip : SSH service Failed  </b></font>},$ssh2->error;
                $eer = 1;

        return "$eer";
        }


print "In Progress....<br>";
exit;