Select Code to Download

use Net::Telnet::Cisco;

for ($i = 1; $i <= 254; $i++){
...

   eval { $session->login('admin', 'admin') or die "Could not connect 
+to $device" };

{ $session->login('admin', 'admin') or die "Could not connect 
+to $device" };