#!/usr/bin/perl
#Proc::Killfam is part of Proc::ProceessTable module 
use Proc::Killfam;
killfam $signal, @pids;
killfam 'TERM', ($pid1, $pid2, @more_pids);
[download]

#!/usr/bin/perl
use warnings;
use strict;

#robau 
#This subroutine takes two arguments, the parent process ID  
#and the numeric signal to pass to the processes  
#(which would be 9 if you wanted to issue a -TERM).  
#Using Proc::Process you could find the process ID  
#of the process login -- zentara with something similar  
#to the following : 

#my $proc = Proc::ProcessTable->new; 
#my @ps = map { $_->pid if ($_->cmndline =~ /login -- zentara/) } @{$p
+roc->table}; 
#&killchd($_, 9) foreach @ps; 

&killchd(9895, 9);
#kill -9  process 9895 

sub killchd ($;$) {
use Proc::ProcessTable;
my $sig = ($_[1] =~ /^\-?\d+$/) ? $_[1] : 0;
my $proc = Proc::ProcessTable->new;
my %fields = map { $_ => 1 } $proc->fields;
return undef unless exists $fields{'ppid'};
foreach (@{$proc->table}) {
kill $sig, $_->pid if ($_->ppid == $_[0]);
};
kill $sig, $_[0];
};
[download]