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