例如：
eval { SOME_FUNC_THAT_MAY_DIE(); }; if ($@) { print "An error occured!\n"; }
我能想到的唯一可能的事情是,如果某个信号处理程序在尝试读取$@的同时调用die,我在这里缺少什么？
此外,在较旧的Perl上,在对象销毁期间调用的任何eval都会破坏全局$@(如果对象因为从eval块抛出异常而被销毁),除非$@首先被本地化.这是fixed in 5.14.0,但许多人仍在运行旧的Perls.
