open I, "<counter.txt"; my $n = <I>; chomp($n); close(I); $n++; open O, ">counter.txt"; print O $n; close(O);