You are looking for Proc::Killfam. Many, if not most times, when you fork to run a program, you end up getting the shell pid of actual program you ran. So if you killfam 9 that toplevel shell, you should get them all.