sub WriteFile { # ( Dateiname , Daten , Überschreiben: Ja / Nein )
 	use Fcntl ':flock';
 	if ($_[2] == 1) {
 	 	open (FILE, "> $_[0]"); # Überschreiben
 	}
 	else {
 	 	open (FILE, ">> $_[0]"); # Anhängen
 	}
 	flock(FILE, LOCK_EX);
 	print FILE $_[1];
 	close (FILE);
}