Select Code to Download

     my $s = Net::Appliance::Session->new({
     personality => 'ios',
...
     Timeout => 15,
     host => $ip,
     });

#!/usr/bin/perl
use Net::Appliance::Session;
...
     $s->close;
 };

$ perl getasrrun.pl
failed to execute command: read timed-out at /usr/local/share/perl/5.1
+4.2/Net/CLI/Interact/Transport/Wrapper/Net_Telnet.pm line 35
...
Execution of finally() block CODE(0xa17c388) resulted in an exception,
+ which *CAN NOT BE PROPAGATED* due to fundamental limitations of Perl
+. Your program will continue as if this event never took place. Origi
+nal exception text follows:

read timed-out at /usr/local/share/perl/5.14.2/Net/CLI/Interact/Transp
+ort/Wrapper/Net_Telnet.pm line 35