#include <unistd.h>
#include <fcntl.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <stdio.h>

int main()
{
        struct flock lock;
        int fd;

        fd = open("a",O_WRONLY);

        lock.l_type = F_WRLCK;
        lock.l_whence = SEEK_SET;
        lock.l_start = 0;
        lock.l_len = 1;
        lock.l_pid = 0;
        printf("%d\n",fcntl(fd, F_SETLKW, &lock));
        sleep(20);
        lock.l_type = F_UNLCK;
        lock.l_whence = SEEK_SET;
        lock.l_start = 0;
        lock.l_len = 1;
        lock.l_pid = 0;
        printf("%d\n",fcntl(fd, F_SETLKW, &lock));

        close(fd);

        return(0);
}

##</code><code>##

!/usr/bin/perl

use strict;
use Fcntl;

my($pack);


open(FILE,">a");
$pack = pack('s s l l l', &F_WRLCK, 0, 0, 1, 0);
print(fcntl(FILE, &F_SETLKW, $pack) . "\n");
sleep(20);
$pack = pack('s s l l l', &F_UNLCK, 0, 0, 1, 0);
print(fcntl(FILE, &F_SETLKW, $pack) . "\n");
close(FILE);