Help for this page

Select Code to Download

Select or download this

use Net::Telnet::Cisco;

...

   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" };