{
  # Make sure file gets closed and unlocked when we're done.
  local *IN;

  open(IN, '<', ...)
    or die("...: $!\n");

  # Wait for people to stop writting:
  flock(IN, LOCK_SH)
    or die("...: $!\n");

  ...
}