$xTelnet = new Net::Telnet (Timeout => undef,
	Errmode => sub {$sMsg = $xTelnet->errmsg();
		$sLog = $xTelnet->dump_log();
		$sLastMsg = $xTelnet->lastline();

		print STDERR "\nERROR_MSG::$sMsg";
		print STDERR "\nLOG_MSG::$sLog";
		print  STDERR "\nLAST_MSG::$sLastMsg";
		return;
	},
	Prompt =>'/[\%\#\>\$] $/',);