Autodetect console output encoding in perl

Question

I have a perl script that prints some information to console in Russian. Script will be executed on several OSes, so console encoding can be cp866, koi8-r, utf-8, or some other. Is there a portable way to detect console encoding so I can setup STDOUT accordingly so the text is printed correctly?

Answer 1

If you're on Windows, there's Win32::Codepage.

Answer 2

use open ':locale';