#! \usr\bin\perl

&Counter;

sub Counter {

  $file='HitCount.txt';
  
if ( (! -e "$file") || (! -w "$file") )
 {
  open(NEW, ">$file");
  print NEW "0";
  close(NEW);
  open(INFILE,"+<$file");
 }
 else
 {
  open(INFILE,"+<$file");
 }

 $num = <INFILE>;
 $num = $num + 1;
 seek(INFILE, 0, 0);
  print INFILE "$num\n";
  print "This page has been accessed $num times<br> \n";
}