#! /usr/local/bin/perl
open (COUNT, "countf");   # open "countf" counter file
$counter = <COUNT>;          # input value from file
close (COUNT);               # close file (primarily to "re-set")
open (COUNT, ">countf");  # open "countf" for 'output'
flock (COUNT, 2);
print COUNT +($counter+1);   # increment value of counter by one & write
close (COUNT);               # close file
print "<b>";
print $counter;              # put the value on the page
print "</b>";
exit 0;


