if ($nfound = select($rout = $rin, undef, undef, $time_left)) {
  for (1 .. $nfound) {
	$sock->recv($msg, $MAX_SIZE) or warn "Socket error!: $@\n";
	}