It seem that what you are trying to do is redirect STDOUT to a file/variable, then change it back again. Check out the node redirecting STDERR, then back again. It deals with the same problem.

The last post on that node is what worked from me. It's pretty much straight from perlfunc:open.

melguin.