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