图片中的代码，以追加方式打开文件OUTPUT_FILE，没有报错。但是在红框中where defined时没有任何动作，在此之前及之后的输出都没问题，而且该文件也是存在的不知为什么就是defined 没有成功。
请高手指教！！！

有一点需要说明下，这个脚本在另外一台服务器上是可以执行的，服务器不同，Perl的版本相同。