IO::Tee does the same thing as what I would do:

Tieing itself to a filehandle, and printing to all filehandles when you print to it...