Select Code to Download

        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?)");