$ perl -mPOSIX=O_RDWR -e '$a = O_RDWR; print "$a\n"'
2