my $lpar = shift;
    if ( ( scalar keys %children ) < $max_children )
    {
        my $pid = (open($lpar,"-|"));