use Net::Telnet ();
 my $telnet = TelnetLogin($ip_address,$name, $passwd, $os_type);
$out=$telnet->cmd("xxx");