use strict; use warnings;

use Encode::Guess;

my $encodings_test = 'ascii cp1252 cp437 cp850 iso-8859-1 utf-8-strict utf8';
guess_encoding('some text', qw/$encodings_test/);