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