G'day PilotinControl,

Use of indirect object notation is strongly discouraged. I recommend you don't use it. See "perlobj: Invoking Class Methods" for further details.

The code you've posted, using indirect object notation (twice), appears to have been copied from EXAMPLE code in the IO::Tee documentation. That documentation was written 13 years ago!

Also, consider using the autodie pragma to check for IO success or failure.