Select Code to Download

my @child_info;
foreach my $params (@params_for_children)
...
         die;
    }
}

sub DESTROY {
    my $self = shift;
...
        kill 'TERM' => $self->{pid};
    }
}

sub spawn {
    my $self = shift;
...
    $self->{parent_pid} = $$;
    my $pid = fork;
# ...