Is there a way to capture a subroutine's print output to a variable so I can send it to stderr instead?

Question

Suppose we have:

sub test {
        print \"testing\\n\";
}

If there is a case where I want to have it print to stderr instead of stdout, i

Answer 1

This work for me

local *STDOUT;
open(STDOUT, ">", \$Result);
&test();
print $Result;