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

##</code><code>##

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

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