The subroutine above is actually a private method in a class. It's none of my buisness why the application wants the lock, so long as I provide a way to do it.

That said, I usually do file locking as a CYA measure. Even if it's only advisory locking, I can say "I did my part to keep the file clean. If you didn't do your bit, that's not my problem."

----
I wanted to explore how Perl's closures can be manipulated, and ended up creating an object system by accident.
-- Schemer

Note: All code is untested, unless otherwise stated