#!/usr/bin/perl
use strict;
use warnings;

my $logfile='out.log';

open(my $out, '|-', "/usr/bin/tee $logfile") or die("ERROR start tee: $!");
close(STDOUT);
*STDOUT=$out;

print "Test1\n";
print "Test2\n";
print "Test3\n";
print "Test4\n";