# Block here until message arrives
my ($read_ready) = IO::Select->select($sock_read_hdl, undef, undef, un
+def);