open (my $fh, '<:encoding(Windows-1252)', $fname) or die "cannot open $fname: $!";