my $ios = IO::Select->new($child);
	if ($ios->can_read(0)) {
		if (sysread($child, my $data, 1024)) {
			my @lines = split(/\n/, $data);
			print "Read message(s): ".join("|", @lines);
		}
		else {
			# Child died
			print "Child died";
		}
	}