DB<2> s 
command timed-out at newtelnet.pl line 25 
at C:/Perl/lib/Net/Telnet.pm line 2036 
Net::Telnet::_croak('Net::Telnet=GLOB(0x1f0e89c)', 'command timed-out') 
called at C:/Perl/lib/Net/Telnet.pm line 539 
Net::Telnet::error('Net::Telnet=GLOB(0x1f0e89c)', 'command timed-out') c 
alled at C:/Perl/lib/Net/Telnet.pm line 361 
Net::Telnet::cmd('Net::Telnet=GLOB(0x1f0e89c)', 'vlan show') called at n 
ewtelnet.pl line 25 
Net::Telnet::DESTROY(C:/Perl/lib/Net/Telnet.pm:201): 
201: sub DESTROY { 

DB<2> s 
IO::Handle::DESTROY(C:/Perl/lib/IO/Handle.pm:330): 
330: sub DESTROY {} 

DB<2> s 
IO::Handle::DESTROY(C:/Perl/lib/IO/Handle.pm:330): 
330: sub DESTROY {} 

DB<2> s 
IO::Handle::DESTROY(C:/Perl/lib/IO/Handle.pm:330): 
330: sub DESTROY {} 

DB<2> s 
Debugged program terminated. Use q to quit or R to restart, 
use o inhibit_exit to avoid stopping after program termination, 
h q, h R or h o to get additional info.