while (my @ready = $select->can_read)