my $str = 'öäü';
open F, '>test.txt';
print F $str;
close F;