Process 1: open FH, ">lock" or die "Cannot >lock";
           flock( FH, LOCK_SH );

##</code><code>##

Process 2: open FH, ">lock" or die "Cannot >lock";
           flock( FH, LOCK_EX );