use File::BOM
open_bom(FH, $file)
$encoding = get_encoding_from_filehandle(FH)