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

##</code><code>##

$| = 1; # line buffer

##</code><code>##

close ($fh);