#!/usr/sup/gnu/bin/perl

################################################################
# En räknare av Mikael Boman, it95mib@minsk.docs.uu.se
# 
# Den variation som måste göras är sökvägen till countfilen
# Dessutom måste denna logfil finnas med en 1:a i innan man börjar
###############################################################

$countfile ="fukocounter.txt";

open (COUNT, $countfile);   # open "countf" counter file
$counter = <COUNT>;          # input value from file
close (COUNT);               # close file (primarily to "re-set")
$counter++;
open (COUNT, ">$countfile");  # open "countf" for 'output'
print COUNT $counter;   # increment value of counter by one & write
close (COUNT);               # close file
print "Content-type: text/html\n\n";
print $counter;              # put the value on the page