Select Code to Download

$ alias perle
alias perle='perl -Mstrict -Mwarnings -Mautodie=:all -MCarp::Always -E
+'

$ perle 'use Fcntl; say O_RDONLY'
0
...
Name "main::F_NOCACHE" used only once: possible typo at -e line 1.
0
say() on unopened filehandle F_NOCACHE at -e line 1.

$ perle 'use Fcntl qw{O_RDONLY F_NOCACHE}; say O_RDONLY; say F_NOCACHE
+'
"F_NOCACHE" is not exported by the Fcntl module
...
        main::BEGIN() called at -e line 1
        eval {...} called at -e line 1
BEGIN failed--compilation aborted at -e line 1.

$ perle 'use Fcntl; use constant F_NOCACHE => 48; say O_RDONLY; say F_
+NOCACHE'
0
...

$ perle 'use Fcntl; use enum qw{F_NOCACHE=48}; say O_RDONLY | F_NOCACH
+E'
48

$ perle 'use Fcntl; use enum qw{F_NOCACHE=48}; sysopen my $fh, "dummy_
+file", O_RDONLY | F_NOCACHE; close $fh'