Select Code to Download

[root@archaia /root]# su nobody
[nobody@archaia /root]$ perl -e 'open (MAIL, ">./foo");print MAIL "scr
+atchymonkey.\n"
...
[root@archaia /root]# ls
bin  mod_perl_docs
[root@archaia /root]#

[nobody@archaia /root]$ perl -we 'open (MAIL, ">./foo");print MAIL "sc
+ratchymonkey.\n
";'
print on closed filehandle main::MAIL at -e line 1.

[nobody@archaia /root]$ perl -we 'open (MAIL, ">./foo") || die "$!";pr
+int MAIL "scrat
chymonkey.\n";'
Permission denied at -e line 1.