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