#!/usr/bin/perl

use strict;
use warnings FATAL => 'all';
use Net::Appliance::Session;

my $ios_device_ip = '10.1.1.1';

my $ios_username        = 'user';
my $ios_password        = 'pass';
my $ios_enable_password = 'enable_pass';

$|=1;

my $session_obj = Net::Appliance::Session->new(
     Host      => $ios_device_ip,
     Transport => 'Telnet',
     Dump_log    => 'dump.log',
     Input_log   => 'input.log',
     Output_log  => 'output.log'
);

# give verbose output whilst we run this script
$session_obj->input_log(*STDOUT);
 
$session_obj->connect(Name => $ios_username, Password => $ios_password, Timeout => 1000);
$session_obj->do_paging(0);

$session_obj->begin_privileged($ios_enable_password);
$session_obj->cmd('upgrade all ftp://anonymous@host/buildname');