#Should be working
open(my $fh, '>>', 'test.out');
openTee(*STDOUT, *STDOUT, $fh);
#asterisks ONLY before STDOUT, NOT $fh