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