确保只有一个Perl程序实例正在运行的最佳方式是什么？

use Fcntl ':flock';
open my $self,'<',$0 or die "Couldn't open self: $!";
flock $self,LOCK_EX | LOCK_NB or die "This script is already running";

PID文件的一个优点是文件在程序退出时自动解锁。以可靠的方式实施起来容易得多。