while (1) {
    foreach my $i (0..$#kids) {
        if (<$readers[$i]>) {