printf "%s\n", $telnet->errmsg();