use File::CounterFile;
my $number = File::CounterFile->new("/some/place");
my $next = ++$number;