#!/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;
sleep 100;
