use Encode::Detect::Detector;

$d -> new Encode::Detect::Detector;
$d -> handle($file)
$charset = $d -> getresult;