#!/usr/bin/perl

use strict;
use warnings;
use Net::OpenSSH;
use Expect;
$| = 1;


my $username = '...'; #put yours here
my $password = '...'; #put yours here
my $enable = '...';   #put yours here
my $timeout = 30;
my $ip = 'w.x.y.z';   #put yours here

my $ssh = Net::OpenSSH->new("$username:$password\@$ip", timeout => 30);
$ssh->error and die "unable to connect to remote host: ". $ssh->error;

my ($pty, $pid) = $ssh->open2pty("show ip arp")
      or die "unable to run remote command show ip arp";
my $expect = Expect->init($pty);


$expect->raw_pty(1);
#$expect->debug(2);
my $debug and $expect->log_stdout(1);
$debug and print "waiting for password prompt\n";
$expect->expect($timeout, "Password: ")
    or die "expect failed, $expect->exp_error()\n";
$debug and  print "prompt seen\n";

$expect->send("$password\n");
$debug and print "password sent\n";

$expect->expect($timeout, "\n")
    or die "bad password\n";
$debug and print "password ok\n";

while(<$pty>) {
    print "$. $_"
}