use strict;
use warnings;
use Proc::ProcessTable;

my $signal=15;
my $parent=shift; # Parent PID from args
my $proc_table=Proc::ProcessTable->new();
foreach my $proc (@{$proc_table->table()}) {
  kill($signal, $proc->pid) if ($proc->ppid == $parent);
}