#!/usr/bin/perl

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


my $username = '';
my $password = '';
my $enable = '';
my $ip = '10.105.0.62';

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

my $out = $ssh->pipe_out("show ip arp")
      or die "unable to run remote command show ip arp";

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