[me@host bin]$ perl -we 'open STDERRIN,"+<&STDERR" or die $!; my $line = <STDERRIN>;  print STDERRIN "YAY!!! $line";'
asdfasf
YAY!!! asdfasf
[me@host bin]$ 

##</code><code>##

ls -l /proc/self/fd/

##</code><code>##

ls -l /proc/self/fd/ < /dev/null
ls -l /proc/self/fd/ | cat
ls -l /proc/self/fd/ 2> /dev/null   #redrect STDERR

##</code><code>##

open TTY, ">/dev/tty" or die "Couldn't open /dev/tty $!";