open my $fh, ">:utf8", "accentTestOutPut.xml" or die $!;

print $fh "\x{feff}";  # BOM

$doc->print($fh);