Please look at my replies to an article on file locking at http://www.perlmonks.com/index.pl?node_id=7058, which explains some better ways to lock files and avoid a race condition than simply using flock() on a data file.

Cheers,
KM