#!/usr/bin/perl
use strict;
use warnings;

use Net::OpenSSH;
my ($ssh,$password);
my $host = "10.0.0.183";
my $user_name = q(username);
$password = q(My_Password);
$ssh = Net::OpenSSH->new($host, user => $user_name, password => $password);

my $output = $ssh->system("show isis neighbors") or
    die "remote command failed: " . $ssh->error;
print "output is = $output\n";