socket_write("STARTTLS$CRLF")
             || return fail("send STARTTLS failed (lost connection?)");
        socket_read()
             || return fail(" $server_reply");
        socket_write("EHLO $smtp$CRLF")        
             || return fail("send EHLO error (lost connection?)");