open(F, "data.txt") || die "Unable to open file!";
flock(F,2);
# tue dies und das
flock(F,8); # besser weglassen...
close(F); # ... "close()" flockt automatisch