Select Code to Download

stout:~ [16:28:32]$ strace -eopen,unlink perl -e 'open $f, "+>", undef
+'
open("/etc/ld.so.preload", O_RDONLY)    = 3
...
open("/tmp/PerlIO_dr5fu4", O_RDWR|O_CREAT|O_EXCL|O_LARGEFILE, 0600) = 
+3
unlink("/tmp/PerlIO_dr5fu4")            = 0
Process 17389 detached

stout:~ [16:29:17]$ perl -le 'open $f, "+>", undef; system "ls -l /pro
+c/$$/fd"'
total 5
...
lrwx------ 1 blazar users 64 Dec  6 16:29 2 -> /dev/pts/0
lrwx------ 1 blazar users 64 Dec  6 16:29 3 -> /tmp/.nfs00364089000002
+21
lr-x------ 1 blazar users 64 Dec  6 16:29 4 -> pipe:[12410097]