The Windows way to do it, rather than using a file lock, is to use a named Mutex. This is how many programs achieve this on Windows. See Win32::Mutex, which I think is bundled with ActiveState Perl.