#!/usr/bin/perl -w -s

#use Data::Decode::Encode::Guess;
#use Encode;
#use Encode::Guess qw/UTF-8 latin1/;

use Encode::Guess;# qw/UTF-8 latin1/;

my @encodings = qw(utf8 ); # cp860?

for my $fn (@ARGV){
	undef $/;
	open(FILE,$fn);
	my $contents = <FILE>;
	close FILE;
	my $enc = guess_encoding($contents);

	if (ref $enc)	{	print "$fn\t:\t".$enc->name."\n"	}
	else			{	print "$fn\t:\tCan't guess: $enc\n";	}
}