open(my $fh, '>:encoding(UTF-8)', $qfn)
    or die;

print($fh qq{<?xml version="1.0" encoding="UTF-8"?>\n});
print($fh qq{<foo>\n});
print($fh qq{  <bar>}, xml_text($s_7bit), qq{</bar>\n});
print($fh qq{  <bar>}, xml_text($s_8bit), qq{</bar>\n});
print($fh qq{  <bar>}, xml_text($s_32bit), qq{</bar>\n});
print($fh qq{</foo>\n});