Select Code to Download

use warnings;
use strict;
...
    }
  }
}

use warnings;
use strict;
...
  $intvlStart=$currentTime;
  $intvlEnd+=INTERVAL while($intvlEnd < $intvlStart+INTERVAL/2);
}

$ perl sslclinb.pl
Connecting to SSL server (192.168.1.10:1234)
...
  Read failure due to SSL_WANT_READ: 82.57%
  Read failure due to SSL_WANT_WRITE: 0.00%
^C