my $stderr;

close STDERR;
open STDERR, '+<', \$stderr or die $!;