Wie kann ich in Perl überprüfen, ob ein Filehandle geöffnet ist?

Question

Gibt es eine Möglichkeit zu prüfen, ob eine Datei in Perl bereits geöffnet ist? Ich möchte einen lesenden Dateizugriff haben, also benötige ich keine flock .

 open(FH, "<$fileName") or die "$!\n" if (<FILE_IS_NOT_ALREADY_OPEN>);
 #  or something like
 close(FH) if (<FILE_IS_OPEN>);