open(FILE, ">>$path") or die "$! writing $path";
  &lock;
  seek(FILE, 0, 2);  # ensure positioned at EOF
  print FILE $string;
  ...