#!/usr/bin/perl

use Fcntl ":flock";

open(TEST,"+>","test") or die($!);
flock(TEST,LOCK_EX|LOCK_NB) or die($!);
open(TEST2,"+>","test") or die($!);
flock(TEST2,LOCK_EX|LOCK_NB) or die($!);
