#!/usr/bin/perl -w

use strict;
use File::BOM qw( :all );

open_bom(FH, "test.txt", 'bytes');

my $encoding = get_encoding_from_filehandle(FH);
print $encoding . "\n\n";


##</code><code>##

use Encode::Guess;
my $decoder = guess_encoding($arg->{String}, 'latin1');
if (ref($decoder)) {
	return 0;
} else {
	return 1;
}