http://www.perlmonks.org?node_id=839953


in reply to writing in 2 handles

IO::Tee