Select Code to Download

use Encode::Guess;
my $decoder = Encode::Guess->guess($filedata);  # default detectable e
+ncodings include utf8.
return(@err, "Can't guess encoding: $decoder") unless ref($decoder);