use File::BOM qw/open_bom/;
open_bom(my $fh, $filename, ':encoding(cp1252)');