Avoid bareword file handles. Use 3-argument open statement per modern Perl standards.