{
  local(*FD);

  sub lockSection {
    my($self, $lockFile) = @_;
    my($rc);

    return(0) if ( ! $lockFile );

    open(FD, ">", $lockFile) or return(0);

    $lockHandles{$lockFile} = FD if ( ($rc=flock(FD, LOCK_EX | LOCK_NB)) );

    return($rc);
  }
}

Bareword "FD" not allowed while "strict subs" in use at BHFTools.pm line 182.
Compilation failed in require at ./BTtestLock.pl line 3.
BEGIN failed--compilation aborted at ./BTtestLock.pl line 3.

$lockHandles{$lockFile} = FD if ( ($rc=flock(FD, LOCK_EX | LOCK_NB)) );

use BHFTools;

$lockHandles{$lockFile} = FD if ( ($rc=flock(FD, LOCK_EX | LOCK_NB)) );

$lockHandles{$lockFile} = *FD if $rc=flock(FD, LOCK_EX | LOCK_NB);