#!/usr/bin/perl

use strict;
use warnings;
use Net::Appliance::Session;


my @ipconadd = qw(1.1.1.1 2.2.2.2 3.3.3.3);

        my $s = Net::Appliance::Session->new({
        personality => 'ios',
        transport => 'SSH',
        host => @ipconadd
        });


eval {
        $s->connect({ username => 'admin', password => 'coolbro' });
        $s->begin_privileged({ password => 'verycoolbro' });
        print $s->cmd('show hostname');
        print $s->cmd('show inventory | i SN');
        $s->end_privileged;

      };
        if ($@) {
      warn "failed to execute command: $@";
      }

$s->close;