Help for this page

Select Code to Download

Select or download this

use Net::Telnet::Cisco;

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

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

Select or download this

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