use Proc::Killfam;

killfam 9, $pid;