#!/usr/bin/perl
use Fcntl ':flock';
open FH, "file.txt" ;
flock FH, LOCK_EX or die "couldn't lock";
while (true) {};