linux – Perl：在信号处理程序中关闭子进程管道挂起？

#!/usr/bin/perl                                                                                             
(-f "foo") || die "file foo doesn't exist";
open(IN,"tail -f foo |");

$SIG{ALRM} = sub
{
    print "trying to exit...\n";
    exit 0;     # Hangs with above open() call
};
alarm 1;

while (1)
{   
    sleep 5;   # Do stuff ...
}

没有打开调用它可行,不幸的是删除它不是一个选项,在这种情况下脚本需要它.

看起来像是试图关闭文件句柄,这就是悬挂：

$SIG{ALRM} = sub
{
    print "trying to close...\n";
    close(IN);            # Hangs ...
    print "ok\n";
    exit 0;
};

我想从信号处理程序中收获孩子并不太高兴…

有没有人知道这方面的好方法？