use Term::Choose;
$Term::Choose::Keep_Win32_Codepage = 1;

...