use Socket qw'SOL_SOCKET SO_RCVLOWAT';

...

setsockopt($clientSock,SOL_SOCKET,SO_RCVLOWAT,BUFSIZE)
  or die "Failed to set SO_RCVLOWAT on socket: $!";

##</code><code>##

$ perl sslclinb.pl
Connecting to SSL server (192.168.1.10:1234)
Connected, switching to non-blocking mode.
Downloading data from server...
Transfer speed: 117.54 MB/s
  Read failure due to SSL_WANT_READ: 0.33%
  Read failure due to SSL_WANT_WRITE: 0.00%
Transfer speed: 117.61 MB/s
  Read failure due to SSL_WANT_READ: 0.31%
  Read failure due to SSL_WANT_WRITE: 0.00%
Transfer speed: 117.61 MB/s
  Read failure due to SSL_WANT_READ: 0.55%
  Read failure due to SSL_WANT_WRITE: 0.00%
Transfer speed: 117.61 MB/s
  Read failure due to SSL_WANT_READ: 0.51%
  Read failure due to SSL_WANT_WRITE: 0.00%
Transfer speed: 117.61 MB/s
  Read failure due to SSL_WANT_READ: 0.43%
  Read failure due to SSL_WANT_WRITE: 0.00%
Transfer speed: 117.61 MB/s
  Read failure due to SSL_WANT_READ: 0.33%
  Read failure due to SSL_WANT_WRITE: 0.00%
Transfer speed: 116.13 MB/s
  Read failure due to SSL_WANT_READ: 0.34%
  Read failure due to SSL_WANT_WRITE: 0.00%
Transfer speed: 117.61 MB/s
  Read failure due to SSL_WANT_READ: 0.10%
  Read failure due to SSL_WANT_WRITE: 0.00%
Transfer speed: 117.61 MB/s
  Read failure due to SSL_WANT_READ: 0.40%
  Read failure due to SSL_WANT_WRITE: 0.00%
Transfer speed: 117.61 MB/s
  Read failure due to SSL_WANT_READ: 0.47%
  Read failure due to SSL_WANT_WRITE: 0.00%
^C