#!/usr/bin/perl -w
use Local::TeeOutput;
use strict;
#No, still not working...
open(my $fh, '>>', 'test2.out'); 
openTee(*STDOUT, *STDOUT, $fh); 
print "XX\n";
close($fh);