while (my @ready = $sel->can_read) {
        foreach $client (@ready) {