120:    my $hits = select( my $out_read   = $in_read,
121:                       my $out_write  = $in_write,
122:                       undef,
123:                       5
124:                     );
125:    unless ($hits) {
126:      next if ($! and ($! == EINPROGRESS) or ($! == EWOULDBLOCK));
127:      die "select: $!" unless $hits;
128:    }