#!/usr/local/bin/perl -w
use strict;

my $fichiernombre = "/cgi-bin/compteleshits";
open(HITS, "+< $fichiernombre") or
  die "Could not open $fichiernombre: $!\n";
flock(HITS, 2) or 
  die "Could not lock $fichiernombre: $!\n";
my $num=<HITS>;
seek(HITS, 0, 0);
$num++;
print HITS "$num";
close(HITS) or 
  die "Could not close $fichiernombre: $!\n";