sub Counter ($) {
local *COUNTER;
local $/ = undef;
- open COUNTER, "+<$_[0]" or
- open COUNTER, ">$_[0]" or return undef;
+ open COUNTER, '+<', $_[0] or
+ open COUNTER, '>', $_[0] or return undef;
flock COUNTER, 2;
seek COUNTER, 0, 0;
my $counter = <COUNTER>;