my $child_pid = open( my $out, "-|", "some command" );

##</code><code>##

waitpid($child_pid, 0);