open(my $fh, "<:raw:perlio", $file);

# read first few bytes for a BOM or ASCII in utf(16|32)
#  to determine encoding

binmode $fh, ":encoding($encoding)"