perl no element found错误解决方法

两个几乎相同的perl程序，其中一个抛出no element found at line 1, column 0, byte 0 at D:/Perl/lib/XML/Parser.pm line 187异常，google下也没找到好的解决方案。最后一行一行对比下来发现出错的那个脚本中在xmlin前没有close掉文件，随后把它加上去了，脚本就没问题了，不知道是不是因为xml要排斥访问的原因，郁闷。