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