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

Output:

before
after
out: during
[download]