This module is able to replicate data written to a
Perl stream into another streams.

It is the Perl equivalent of the shell utility tee(1)

WWW: http://search.cpan.org/dist/File-Tee/