Select Code to Download

#include <unistd.h>
#include <fcntl.h>
...

        return(0);
}

!/usr/bin/perl

...
$pack = pack('s s l l l', &F_UNLCK, 0, 0, 1, 0);
print(fcntl(FILE, &F_SETLKW, $pack) . "\n");
close(FILE);