# close STDOUT;  # with this it works
open STDOUT, ">:encoding(cp37)", "foo.out" or die "Cannot redirect STDOUT\n";
print "yadda yadda\n";