Автоматичне визначення кодування терміналу в perl-скрипті

Набридло руками змінювати кодування для нормального виведення російського тексту в своїх perl-скриптах залежно від кодування терміналу (запускаю скрипти під Linux (utf8), Windows (ActivePerl, cp866) і Windows (Cygwin, cp1251)). Трохи погуглити, але ніяких готових рецептів не зустрів, хороший запит для пошуку що-то в голову не прийшов.
Вирішив поступити наступним чином - визначати операційну систему, в якій запущений [...]