Select Code to Download

foreach $host ( @hosts )  {   
         my $conn = Net::Telnet::Cisco->new(HOST => $host, Dump_log =>
+ 'dump2.log',Timeout=>20, ErrMode => 'return');  
...
  $conn->close;
};

< 0x00000: ff fb 01 ff  fb 03 ff fd  18 ff fd 1f  0d 0a 0d 0a  ÿû.ÿû.ÿ
+ý.ÿý.....
< 0x00010: 55 73 65 72  20 41 63 63  65 73 73 20  56 65 72 69  User Ac
+cess Veri
...

< 0x00000: 0d 0a 50 61  73 73 77 6f  72 64 3a 20               ..Passw
+ord: