my @encodings_test = qw(ascii cp1252 cp437 cp850 iso-8859-1 utf-8-strict utf8);
my $decoder = guess_encoding($data, @encodings_test);