This approach causes data loss if:

• the process is terminated for any reason (user intervention, exceeding resource limits, system crash)
• the disk fills up during execution

If you don't want to risk losing data, use the sentinel locking approach already mentioned by others in this thread.

However, if the weaknesses of using only a read/write filehandle aren't a problem for you, you might want to look into FileHandle::Rollback.