#!/usr/bin/pugs
use perl5:Fcntl <:flock>;

my $fh = open( 'test.txt', :w );
flock($fh, LOCK_EX);
$fh.say: "Hello World!";
$fh.close;