open STDOUT, '>&', new IO::Tee(\*STDOUT, '>file.txt');