how i just killed the children

kill_children.pl

  #that title doesn't get me on a list...
  use Parallel::ForkManager;
  use Data::Dumper;

  my @sleep = (
    10,
    60,
    60,
    60,
    60,
    60,
    60,
    60,
    60,
    60,
    60,
    60,
    60,
  );

  # Max 30 processes for parallel download
  my $pm = new Parallel::ForkManager(10);
  my $pgid = "123";

  setpgrp($$, $pgid);

  my @pids = ();
  $pm->run_on_finish( sub {
      my ($pid, $exit_code, $ident, $exit_signal, $core_dump, $data) = @_;
      print "** $ident just got out of the pool ".
        "with PID $pid and exit code: $exit_code\n";
      my $string = ${$data};
      print "Value is $string";

      kill "KILL", @pids;

      exit;
  });

  foreach my $sleep (@sleep) {
    if (my $pid = $pm->start) {
        push (@pids, $pid);
        next; # do the fork
    }

    setpgrp($$, $pgid);

    sleep $sleep;

    my $string = "slept for $sleep seconds! feel great now!";

    $pm->finish(0, \$string); # do the exit in the child process
  }
  $pm->wait_all_children;