if (flock(LOG_FILE, &LOCK_EX)) {         # exclusive lock
...
    flock(LOG_FILE, &LOCK_UN) or die "Can't unlock logfile $!"; # unlock
}
close(LOG_FILE) or die "Can't close logfile $!";