Select Code to Download

package File::CounterFile::Resettable;

use base qw( File::CounterFile );
...
    }
    $self->{'value'}; # return value
}

my $count = File::CounterFile::Resettable->new("./asr_counter.txt");
$count->lock();
$count->reset();
$count->unlock();