eval{ require $file; } /*subsequent code goes here*/ ...
如果$file包含exit语句,则后续代码无法运行.
如何解决以便后续代码总是有机会在eval完成时运行？
作为解决方法,您可以覆盖全局退出内置：
BEGIN { *CORE::GLOBAL::exit = sub { die "About to exit" } }
