use strict;
use warnings;
use threads;
use feature 'say' ;
use Fcntl qw(:flock);
open(FILE, ">>/tmp/test.txt");

for(0..9) {
    threads->new(\&worker, $_);
}

$_->join for threads->list;

sub worker {
    my $x = shift;
    my $locked;
    $locked = flock(FILE, LOCK_EX|LOCK_NB );
    if( $locked ) {
        say "$x: lock acquired";
        sleep 4;
    } else {
        say "$x: cannot acquire lock";
    }
    flock( FILE, LOCK_UN );
    print "$x: lock released\n";
    return;
}