die()不会退出Perl脚本的情况？

问题是脚本没有按预期退出die().相反,脚本只是挂起而不返回.

我自己没有定义任何错误处理程序,所以我认为die()会导致脚本立即终止.

这是脚本的基本结构和使用的模块：

#!/usr/bin/perl

use strict;
use utf8;
use warnings;

use DBI; # with MySQL driver ("dbi:mysql:database=...")
use Geo::IP;
use POSIX;
use URI::Escape;

open(COMMAND,'command_line |');
while (<COMMAND>) {
    #
    # .. stuff that can go wrong ..
    #
    die("I'm expecting the script to terminate here. It doesn't.") if ($gone_wrong);
}
close(COMMAND);

这种行为有什么解释？是否已知使用的任何模块设置错误处理程序,可以解释挂在die()上的脚本？