open my $olderr, '>&', \*STDERR or die $!;
#...
open STDERR, '>&', $olderr or die $!;