if(!open($handles[$i], '|-'))

        {
                # child process
                for (my $j=0; $j<$i; $j++) {
                        close($handles[$j]);
                }
                child();
                exit 0;
        }