#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);
	...
				
	

chomp $count;

use CGI::Carp qw/fatalsToBrowser warningsToBrowser/;

#Header
print "Content-type: text/html\n\n";
warningsToBrowser(1);
...

open(FH, '<', $filename) or die $!;
flock(FH, 2);

# .. doing some stuff

flock(FH, 8);
close(FH);