See also perldoc -q 'lock a file'.

And in general, if you have more than one writer you want to lock.