#!/usr/bin/perl

use Fcntl qw(:DEFAULT :flock);
use strict;

my $FH;
my $fn = 'flockdata';

my $test_data = (join('','a'..'z')."\n") x 10;
#print length($test_data),"\n";

sysopen($FH,$fn,O_WRONLY|O_CREAT);

for(1..10) {
  last unless fork();
}

for(1..20) {
  die "FLOCK ERROR\n" unless flock($FH,LOCK_EX);
  die "SYSWRITE ERROR\n" unless syswrite($FH,$test_data,length($test_data)) == \
length($test_data);
  flock($FH,LOCK_UN);
}

close $FH;