Select Code to Download

use Symbol;

sub Counter ($) {
...
    open           $fh, ">  $_[0]" or return undef;
      # ...
}

use File::CounterFile;

  # ...

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