All you need to do is send either *STDOUT or \*STDOUT as the fh parameter.

Also see "Passing Filehandles" in perldoc perlfaq7

-- 
Joost       downtime n. The period during which a system
            is error-free and immune from user input.
[download]