#!/usr/bin/perl

$cnt_file="index.cnt";

open(CNTF,"+< $cnt_file")||open(CNTF,">$cnt_file")||do{print "ERR";exit;};
flock(CNTF, 2);
$cnt=<CNTF>;
$cnt ++;
seek(CNTF, 0,0);
printf CNTF "%d", $cnt;
flock(CNTF,8);
close(CNTF);

printf "%d", $cnt;