#!/usr/bin/perl $dateiname="../../cgi-write/counter"; open(FILE, "<$dateiname") or die "Kann Datei $dateiname nicht öffnen!!!"; $stand = ; close(FILE); open(FILE, ">$dateiname") or die "Kann Datei $dateiname nicht öffnen!!!"; $stand=$stand+1; print FILE $stand; close(FILE); print "Content-type: text/html\n\n"; print ""; print ""; print "Benutzer-Nr.: $stand !!!"; print "";