in reply to Safe Counter
THere is, would you believe, a module called File::CounterFile that does that very thing
/J\