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