open(FH,">....") or die $!;
flock(FH, 2);
blabla
flock(FH, 8);
close(FH);