use Fcntl qw(:flock);
open(FH, "+<", $path);
flock(FH, LOCK_EX);

#Datei aktualisieren

close(FH);