perl -MFcntl -e 1