$pid=open(PARENT_READ_HANDLE, "-|");

##</code><code>##

open (PROG, "some_program its_args |") 
         or die "can not run some_program $!";