open (FOOFILE, ">>:encoding(cp37)") or die "Some error message: $!\n";
  select FOOFILE; 
  print "yadda yadda\n";  
  close(FOOFILE);
  select STDOUT;