Автоматическое определение кодировки терминала в perl-скрипте.