#!/usr/bin/perl

#  counter to call from SSI  include cmd
#  bumps count in a file named <caller>.cx

$cx = $ENV{"SCRIPT_FILENAME"}.".cx" ;
# print ("I am $cx\n");
# system("/usr/bin/env > /tmp/dbg");

if ( -e $cx ) {
 open( CX, "+<$cx" ) || die;
 $line = <CX>;
 chop($line);
 seek CX, 0, 0;
 
 print CX ( ($line +1), "\n");
 close CX;
} else {
 die;
}