Select Code to Download

while(@bits = $selectFD->can_read)

select(undef, undef, undef, 0.1);

@bits = $selectFD->can_read(30);
if (@bits == 0) {
...
    blah blah blah
  }
}