$ perl -wle 'open STDERRIN,"<&STDERR" or die $!; my $line = <STDERRIN>'
Filehandle STDERRIN opened only for output at -e line 1.
$