#!/bin/perl -w
use feature ":5.10";
use strict;
use Carp;
use Encode::Detect::Detector;
open my $FILE,'TALT432.txt';
my @file=<$FILE>;
close $FILE;
say get_encoding(@file);

sub get_encoding {
	my @data=@_;
	my $res;
	my $enc = Encode::Detect::Detector->new();
	my $l;
	foreach ( @data ) {
			$enc->handle( $data[$l] );
			$l++;
		}
		$enc->eof;
	return $res if $res=$enc->getresult();

}