use FindBin qw($Bin $Script);
use Fcntl ':flock';

open my $fh, '>>', "$Bin/$Script" or die "open(>>$Bin/$Script): $!";
flock $fh, LOCK_EX|LOCK_NB or die "Another copy seems to be running";