#Change:
#my ($new_readable) = IO::Select->select($readable_handles, undef, undef, 0 );
# to
my ($new_readable) = IO::Select->select($readable_handles, undef, undef, undef );