sub SSH_Reference {
        my ($rip,$rusr) = @_;
        chomp($rip,$rusr);
        my $ssh = Net::SSH::Expect->new(
                                    host     => $rip,
                                    user     => $rusr,
                                    timeout  => 15,
                                    raw_pty  => 1
                                      );

        eval{
               $ssh->run_ssh();
        };