Sure, you could hand-code the problem, but I'd recommend using File::CounterFile. If you want to know how it works, the source code is great education.

-- Randal L. Schwartz, Perl hacker
Be sure to read my standard disclaimer if this is a reply.