This question comes up a lot... I know I've answered it at least eight times. As always, my recommended solution is to use Filter::Handle. It does a great job, requires minimum changes to existing code, and works with file handles other than STDOUT/STDERR.