Select Code to Download

use strict;
use warnings;
...
# and others available for proper format use/control
$tee->format_top_name( q/main::TEE_TOP/ );
$tee->format_write( q/main::TEE/ );

-> ./tst-tee-write
==== Top of Output ====
...
-> cat junk.out
==== Top of Output ====
hello    12345