{
  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);
  }
}