use strict;
use warnings;
# this file is only parsable on 5.8+.
open my $stderr_copy, '>&', STDERR;
close STDERR;
open STDERR, '>', \my $stderr
or die 'something went wrong when redirecting STDERR';
END {
Test::More::note 'suppressed STDERR:', $stderr if $stderr;
close STDERR;
open STDERR, '>&', $stderr_copy
or die 'something went wrong when restoring STDERR';
}