perl IO-Tee IO::Tee