http://www.perlmonks.org?node_id=484309


in reply to Is a file currently being modified?

You could use '/usr/sbin/fuser' if you are working under Unix.