Even better, use Tom Christiansen's implementation of Tie::Tee that he gives here...

(There is also an IO::Tee, but it doesn't work like I would want. Yes, I am sending a bug report to the author.)