my $out;
print STDERR "before\n";
{
    local *STDERR;
    open STDERR, ">", \$out or die;
    print STDERR "during\n";
}
print "after\n";
print "out: $out\n";

##</code><code>##

before
after
out: during