第283页 用fork进行深入和复杂的工作

没看明白。。。后面再深入。。。
发送及接收信号
发送信号和Unix下标准的kill很类似
kill 2, 4201 or die "Cannot signal 4201 with SIGINT : $!\n";    #说明kill不成功会返回0
kill 'INT', 4201 or die "Cannot signal 4201 with SIGINT : $!\n";    # same as last one.
kill 'INT' => 4201 or die "Cannot signal 4201 with SIGINT : $!\n";    # same as last one.
## 编号为0的signal为特殊的探测signal，仅是为了探测是否可以向进程发送信号
unless (kill 0, $pid) {    # return 0 if failed to send signal 0 to $pid
    warn "$pid has gone away!";
}
接受信号和普通留个钩子的思路一致，就是你需要提供中断发生时，处理的子程序，然后将这个子程序注册到系统中，告诉Perl当中断发生时，调用它。为了达到这个目的，需要关注一下Perl内置的一个特殊的hash——%SIG。
另外，信号处理子程序未必总是处理程序善后工作，也可以是直接返回。比如下面的例子，就是使用自增一下计数器，然后直接返回了。
my $init_count=0;
sub my_ini_handler { $init_count++ }
$SIG{'INT'} = 'my_ini_handler';    # 注册“钩子”的地方

while (<SOMEFILE>) {
    ...;    # need some time to deal with
    if ($int_count){
        print "[Processing interrupted...]\n";
        last;    # 这样就保证了没有中断正在处理的最后一个文件，但是处理最后一个结束后，就真的结束了。这个小技巧挺巧妙的。
    }
}