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

##</code><code>##

    my ($ready) = IO::Select->select($readable, undef, undef, undef);
    die "IO::Select->select() failed: $!\n"   unless $ready;
    foreach my $s (@$ready) {