$ perl -MFcntl=O_RDONLY -le  " print +O_RDONLY "
0