open(HANDLE, ">file.dat");
flock(HANDLE, 2); #lock file
# file processing
flock(HANDLE, 8); #unlock file
close(HANDLE);