my @lines; 
@lines = $telnet->cmd('config t'); 
print @lines; 
my @com1 ;
@com1 = $telnet->cmd(' interface vlan 2'); 
print @com1; 
my @com2 ;
@com2 = $telnet->cmd("$command");
@com2 = $telnet->cmd( '  ip address '  10.1.4.1 255.255.255.0); 
print @com2;


##</code><code>##

command timed out
 @com2 = $telnet->cmd( '  ip address '  10.1.4.1 255.255.255.0);