#!/usr/bin/perl -w
# Alle einfachste Version von Besucher Zaehler
#
use CGI::Carp qw(fatalsToBrowser);
#Datei, wo die Zaehler gespeichert wird
my $counter="counter.dat";
# Datei zum Lesen oeffnen
open(DATEI,"<$counter");
# eine Zeile lesen
$number_of_visits = <DATEI>;
# Datei schliessen
close(DATEI);
# Anzahl von Besucher erhoehen
$number_of_visits++;
# Datei zum schreiben oeffnen
open(DATEI, ">$counter");
# Neue Anzahl von Besucher speichern
print DATEI "$number_of_visits";
# Datei schliessen
close(DATEI);
# Anzahl von Besucher zeigen
print "Die Seite wurde schon $number_of_visits mal gesehen!<br>";