#!/usr/bin/perl
  
## this script updates the counter and is refered to by a server side include
## source: http://www.swt.edu/cs/course/2378i/sawey/perl/ssi.htm

print "Content-type: text/plain\n\n";
open(COUNTER, "<counter.out") || die "BUSY";
$value = <COUNTER>;
close(COUNTER);
$value++;
open(COUNTER,">counter.out");
print COUNTER $value+"\n";
close(COUNTER);
print $value;