Messy? With this you're looking at one step versus four or five.

Whether you use a text file to hold the id or not, I smell a possible race condition. See File::CounterFile for more info.