Could you close the current STDOUT and then reopen it as a pipe into your program?

Never tried this before, but that's the first solution that pops to mind.

----
I wanted to explore how Perl's closures can be manipulated, and ended up creating an object system by accident.
-- Schemer

Note: All code is untested, unless otherwise stated