fcntl($sock, F_SETFL, O_NONBLOCK)
        or die "Can't set socket non-blocking: $!";

##</code><code>##

    defined($sock->blocking(0))
        or die "Can't set socket non-blocking: $!";