defined(my $child_pid=open(CHILD_OUTPUT, "-|")) or die "fork: $!";