my $cpid = open (my $fh, "-|") || exec (@_);