Select Code to Download

$blocking = $sock->blocking(0) if $timeout;

use strict;
...
-------
Was previously: blocking
Was previously: non-blocking