use Win32 qw( );
BEGIN {
   binmode(STDIN,  ':encoding(cp'. Win32::GetConsoleCP()       .')');
   binmode(STDOUT, ':encoding(cp'. Win32::GetConsoleOutputCP() .')');
   binmode(STDERR, ':encoding(cp'. Win32::GetConsoleOutputCP() .')');
}