open ( IN, "<", yourfile);
my $bigstring = "";
my @content = <IN>;
foreach my $tmp (@content) { $bigstring .= $tmp; }
print "My file content encoding is: ", Encode::Guess->guess($bigstring)->name;