use Fcntl;
		open(DATEI, '>'.$dateiname) or die "Kann $dateiname nicht öffnen";
		flock(DATEI, LOCK_EX);