Select Code to Download

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

use Encode::Guess;
open my $fh, '<:raw', $filename or die $!;
...
ref($enc) or die "Can't guess $filename: $enc";
print "$filename: guessed ",$enc->name,"\n"; #Debug
open $fh, '<:encoding('.$enc->name.')', $filename or die $!;