open (FILE,"+</path/file");
flock (FILE,2);

# Do something with the data

seek (FILE,0,0);
truncate (FILE,tell (FILE));
close FILE; #file unlocks when closed