use File::UpdateExclusively;
{
  my $handle = File::UpdateExclusively->on("/some/file/name") or die;
  my @data = <$handle>;
  ## process @data
  print $handle @data;
}