perl IO-Tee