open(C, "counter.txt") and $c = <C> and close C and $c++;
open(C, ">counter.txt") and print C $c and close C;