if ( flock( LOCK, 2 || 4 ) )

##</code><code>##

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