IO::Tee (multiplex output to multiple filehandles)

IO::Tee is a Perl module that lets a program send its output to
several filehandles at once. It returns a tied handle: whatever is
printed to it is copied to every handle passed to the constructor,
for example STDOUT and a log file. It can also read from a first
input handle and copy the data it reads to the other handles.