PREINIT:
        char *buf;
        int got;
        int succeeded = 1;
        struct timespec ts1, ts2;
        long dT;
    PPCODE:
        New(0, buf, max, char);
 
        clock_gettime(CLOCK_MONOTONIC, &ts1);
        got = SSL_read(s, buf, max);
        clock_gettime(CLOCK_MONOTONIC, &ts2);
        dT= (ts2.tv_nsec - ts1.tv_nsec)/1000
          + (ts2.tv_sec - ts1.tv_sec)*1000000;
        warn("SSL_read(s, buf, %ld) => %ld  (%ld us)\n",
             (long)max, (long)got, dT);
        if (got <= 0 && SSL_ERROR_ZERO_RETURN != SSL_get_error(s, got))
               succeeded = 0;