Opening a file is slow anyway, and the additional error check doesn't cost you anything. And having Perl telling you the reason why it cannot create a file instead of the file silently not being created (or updated) is priceless. So, always check your open() calls for failure and output the error message together with the filename.