Select Code to Download

[SiDMBP2:~] urinine% perl dog.pl
Can't locate feature.pm:   Permission denied at dog.pl line 1.
...
[SiDMBP2:~] urinine% sudo perl dog.pl
Hello World
Wednesday

[SiDMBP2:~] urinine% perl -e 'print(join("\n", @INC))' | xargs ls -ld
ls: /Library/Perl/Updates/5.18.4: Permission denied
...
drwxr-xr-x   56 root     wheel  1792 Jul 24 08:26 /System/Library/Perl
+/5.18/darwin-thread-multi-2level
drwxr-xr-x  109 root     wheel  3488 Aug 17  2018 /System/Library/Perl
+/Extras/5.18
drwxr-xr-x   72 root     wheel  2304 Sep 21  2018 /System/Library/Perl
+/Extras/5.18/darwin-thread-multi-2level

[SiDMBP2:/Library/Perl] urinine% sudo ls -l /Library/Perl/Updates/5.18
+.4
total 0
...
[SiDMBP2:/Library/Perl] urinine% sudo ls -l /Library/Perl/Updates/5.18
+.4/darwin-thread-multi-2level
total 16
-rw-------  1 root  wheel  7027 Oct 14 11:08 perllocal.pod