#Does not work
open(my $fh, '>>', 'test.out');
openTee(*STDOUT, *STDOUT, *$fh);