#!/c:\perl 

use warnings; 
use strict; 

use Net::Telnet; 


my $telnet = new Net::Telnet ( Timeout=>10, 
Errmode=>'die', 
Dump_Log=>'dump.txt', 
Input_log=>'input.txt', 
Output_log=>'output.txt', 
); 


$telnet->open('172.16.233.214'); 
$telnet->waitfor('/username: $/i'); 
$telnet->print('myusername'); 
$telnet->waitfor('/password: $/i'); 
$telnet->print('mypassword'); 


my @lines; 
@lines = $telnet->cmd("vlan show"); #<----This is where it will hang. 
print @lines; 
@lines = $telnet->cmd("vlan"); 
print @lines;