my $fooFile = "foo.out";                  
unlink $fooFile;
#close STDOUT;  # with this it works
open STDOUT, ">>:encoding(cp37)", $fooFile or die "Cannot redirect STDOUT\n";                     
select(STDOUT); $| = 1; 
print "yadda yadda\n";
close STDOUT;