Wie kann ich in Perl prüfen, ob eine Datei gesperrt ist?

Question

Wie genau kann ich überprüfen, ob eine Datei exklusiv gesperrt ist? Ich habe diese Funktion, aber sie gibt 1 zurück, egal was ich tue:

sub is_file_locked
{
  my $theFile;
  my $theRC;

  ($theFile) = @_;
  $theRC = open(HANDLE, $theFile);
  $theRC = flock(HANDLE, LOCK_EX|LOCK_NB);
  close(HANDLE);
  return !$theRC;
}