my ($ready) = IO::Select->select($readable, undef, undef, undef);
    foreach my $s (@$ready) {