my $telnet = new Net::Telnet ( Timeout=>10,Port => $console_port ,Errmode=>'return'); $telnet->open("$console_server"); print "errmsg: " . $telnet->errmsg . "\n";