D'oh. All I needed was flock(LOG, LOCK_EX | LOCK_NB) || die "cannot lock $logfile: $!\n";. Thanks.