#!/usr/bin/perl
use strict;
use warnings;
use Fcntl qw(:flock);
open my $fh, '>>', 'tfiles/locking-daemon' or die "Can't open lock file: $!";
flock $fh, LOCK_EX | LOCK_NB or die "lock failed";
sleep 100;
#!/usr/bin/perl
use strict;
use warnings;
use Fcntl qw(:flock);
open my $fh, '>>', 'tfiles/locking-daemon' or die "Can't open lock file: $!";
flock $fh, LOCK_EX | LOCK_NB or die "lock failed";
sleep 100;