Привет всем!

1)Нужно перевести текст из кодировки UTF8 в UCS2, в Perl -е

Покопался с нете нашел нечто такое, но не работает:

====
use Encode qw/encode decode/;

$ucs2 = encode("UCS-2LE", $text);
====

2)Подскажите, как в Perl-e проверить кодировку? Т.е. есть ли какая нибудь функция в которую можно задаёшь текст, а она тебе выводит кодировку?

Заранее благодарен!