my $BOM = chr(0xFEFF);
print OUT "$BOM";