Select Code to Download

use Fcntl ':flock';
sub alter_file {
...
  ...read from file...
  close(HANDLE2);  # also releases lock
}

sub alter_file {
  open(HANDLE1, ">/some/tmp/file");
...
  close(HANDLE1);
  rename("/some/tmp/file", "file");
}