ssi counter test

---

#!/usr/bin/perl $countfile = "cgi-bin\\counter.txt"; if (open (COUNT,"$countfile")) { $count = ; $count =~ s/\n$//; close(COUNT); }$count++; open (COUNT,">$countfile") || die "Can't create count file: $!\n"; print COUNT $count; close(COUNT); print "\n\n"; print $count;