while(@bits = $selectFD->can_read)

##</code><code>##

select(undef, undef, undef, 0.1);

##</code><code>##

@bits = $selectFD->can_read(30);
if (@bits == 0) {
  # we timed out
} else {
  for (@bits) {
    blah blah blah
  }
}