open my $errsave, '>&', STDERR
  or do { print "couldn't dup STDERR: $!"; exit 2; };
open STDERR ...
...
open STDERR, '>&', $errsave
  or do { print "couldn't restore/dup STDERR: $!"; exit 2; };