open my $fh, '<:encoding(Latin-1)', $filename
    or die "$filename: $!";