use strict;
use Encode;

my @encodings = Encode->encodings;

for my $encoding (@encodings) {
 open(my $fh, "<:encoding($encoding)", "C:/EDK") or die $!;
 my $content = do { local $/; <$fh>; };

 print "encoding: $encoding:\n$content\n";
}