open(FH, '<', $filename) or die $!;
flock(FH, 2);

# .. doing some stuff

flock(FH, 8);
close(FH);