#Datei mit dem Zählerstand öffnen
	open(COUNT,"<$countfile") || die "Konnte Zählerdatei nicht öffnen";
	flock(COUNT,2);
	#Zählstand in Variable $count einlesen
	$count=<COUNT>;
	close(COUNT);

	#Ich habe festgestellt, dass in der Variablen einige überflüssige Leerzeichen enthalten sind, die die Anzahl der Stellen der Zahl verfälschen würden, daher entferne ich diese
	$count=~s/\s//g;
	#Zahlen aufsplitten
	my @zahlen=split(//,$count);
	...

	#erhöhen der Zahl und in Datei schreiben
	#Zähler erhöhen;
	$count++;
	#Datei zum schreiben öffnen
	open(COUNT,">$countfile") || die "Konnte Zählerdatei nicht öffnen";
	#exklusives Zugriffsrecht setzen
	flock(COUNT,2);
	print COUNT $count;
	close(COUNT);
	...