[me@host scratch]$ perl -wle 'open STDERRIN,"<&STDERR" or die $!;  my $line = <STDERRIN>;  print "YAY!!! $line";'
sadf
YAY!!! sadf

[me@host scratch]$