use Fcntl ':flock';
# ...
      if ( flock( LOCK, LOCK_EX | LOCK_NB ) )
# ...