使用Win32 :: JobAdd来控制进程组

Question

我正在尝试使用Win32 :: JobAdd创建一组进程，以便我可以终止子进程和子进程启动的进程。

到目前为止，我（几乎直接来自文档）：

 my $job = createJobObject( 'job_foo' ); # what is job_foo? Is this where I put my command???
 my $pid = open O, q[perl -E "system 1, $CAD_command";
                            system 1, 'notepad.exe';
                            sleep 100" |] or die $^E;
 assignProcessToJobObject( $job, $pid ); 
 sleep(10);
 closeHandle( $job ); #should kill everything

输出结果为：

Name "main::pid" used only once: possible typo at alarm.pl line 24.
Use of uninitialized value in subroutine entry at alarm.pl line 24.

之前我没有使用过这个模块。有没有更简单的方法来分组所有子进程并使用系统命令或其他东西来控制它们？我在Windows。