use File::CounterFile;

  # ...

my $count = File::CounterFile->new($counter,$def_value)->inc;