sub flock_unlock {
    flock($file, LOCK_EX) or die;
    flock($file, LOCK_UN) or die;
}

cmpthese(
    -2, {
        flock_unlock => \&flock_unlock
    }
);

open(my $file, ">", "/tmp/test-flock.lock") or die;

sem_lock_unlock  489359/s              --            -73%
flock_unlock    1812055/s            270%              --

my $sem = IPC::Semaphore->new(IPC_PRIVATE, 1, S_IRWXU | IPC_CREAT) or die "IPC::Semaphore->new: $!";
$sem->setval(0, 1) or die "sem setval: $!";

sub sem_lock_unlock {
    $sem->op(0, -1, 0) or die "semop: $!";
    $sem->op(0, 1,  0) or die "semop: $!";
}