File::BOM provides get_encoding_from_filehandle and get_encoding from_stream to identify the encoding of Unicode files. Example:

use File::BOM qw( :all );
open $fh, '<', $filename;
my ($encoding) = get_encoding_from_filehandle($fh);
[download]