Proc::Killfam − kill a list of pids, and all their sub−children
use
Proc::Killfam;
killfam $signal, @pids;
killfam accepts the same arguments as the Perl builtin kill command, but, additionally, recursively searches the process table for children and kills them as well.
killfam ’TERM’, ($pid1, $pid2, @more_pids);
kill, signal