#!/usr/bin/perl use CGI qw(:standard); $data=0; open(cRead,"hits.dat"); $data = ; $data++; close(cRead); open(cWrite,">hits.dat"); print (cWrite "$data"); close(cWrite); print< HC

$data

END