There is a File::CounterFile module on CPAN. I haven't used it, so I can't say anything about it, but it's written by Gisle Aas, so chances are it's good.

However, if you post your counter code here, we may be able to figure out why it doesn't work.