perl -MFcntl=:flock -e 'print 2+LOCK_EX'