#!/usr/local/bin/perl

$counter = "../temp/counter.dat";
print "Content-type: text/plain"."\n\n";

open (File, $counter) || die " Cannot read from the counter file.\n";
flock (FILE, 2);
$vistors = <COUNTER>;
flock (FILE, 8);
close (FILE);

open (FILE, ">" .$counter) || die "Cannot write to the counter file.\n";
flock (FILE,2);
print FILE $visitors;
flock (FILE, 8);
close (FILE);