use Fcntl ':flock';
flock(FILE, LOCK_EX);
open (FILE, "> $Datei");
print FILE $Data;
close (FILE);