Как проверить, открыт ли файл с помощью Perl?

Зная имя файла, как я могу определить, открыт ли файл в данный момент или находится в использовать? (Я говорю о файлах, а не об дескрипторах файлов Perl.)

Обратите внимание, что я ищу Perl-решение общего назначения, а не решение для конкретной операционной системы. Как минимум, мне нужно что-то, что работает как в Windows, так и в системах на основе GNU/Linux.