use Fcntl qw(:flock);
...
open FH, ...
flock FH, LOCK_EX; # zum schreiben geöffnete dateien
# oder
flock FH, LOCK_SH; # zum lesen geöffnete dateien