# can't lock here, because you might lock twice sub logit { $lognow = `/usr/local/bin/date "+%Y%m%d %H:%M:%S"`;chop($lognow); open (LOG,">>log/@_[0].log"); print LOG "$name $lognow $file\n"; close (LOG); } 1;