open my $outFH, '>:encoding(ISO-8859-1)', 'foo.dos' or die "$!";
print $outFH "Ätsch\nBätsch";