使用POSIX或SysV信号量实现flock（）

Question

我想使用flock()中的独占/共享，阻塞和非阻塞atomic锁定。

use strict;
use warnings;
use Fcntl qw(:flock);

open my $fh, ">", "/tmp/lockf" or die $!;

# one of LOCK_EX, LOCK_EX|LOCK_NB, LOCK_SH, LOCK_SH|LOCK_NB
my $lock_mode = LOCK_EX;
flock($fh, $lock_mode) or die $!;

如何使用信号量实现此功能？