I like to use Time::HiRes time() and s/.// to get a long unique number. You dont have to worry about file locking (to prevent clobbering if multiple instances try to get a number at the same time).

-Waswas