END { close STDOUT }

我知道END和关闭,但我错过了为什么需要它.

当开始搜索时,在perlfaq8中找到以下内容：

For example,you can use this to make
sure your filter program managed to
finish its output without filling up
the disk:

END {
    close(STDOUT) || die "stdout close Failed: $!";
}

不管怎么说,