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