Nice race condition you've managed to write there. If you're going to try and roll your own make sure you do it correctly with sysopen and O_WRONLY|O_EXCL. See the docs, specifically perldoc -f sysopen and perldoc perlopentut.