use Errno   qw( $EAGAIN $EINTR );
use Fcntl   qw( $O_NONBLOCK    );
use Socket  qw( $AF_INET       );
# die "epoll_wait: $!" if $! != $EINTR;