#!/s/std/bin/perl

use File::CounterFile;

my $filename = $0;
my $datadir = "/s/www/data";

$filename =~ s|^(.*)/|/var/home/www/logs/|;
$c = new File::CounterFile $filename, 0;
$c->inc;

