sub db_lock()
  { open LOCK, ">$LOCK_FILE" || die "$0: [error] Can't open lock file: $!\n";
    flock( LOCK, LOCK_EX) || die "$0: [error] during lock: $!\n";
  }