{ # loop
  my @readable = $select->can_read();
  # ...

  redo;
} # loop