open my $fh, ">:utf8", "test.xml" or die $!;
print($fh "\x{FEFF}");
$doc->printToFileHandle($fh);