lock your files with Path::Class::File Peter Karman <perl@peknet.com>