package Term::Choose;
...
if ( $Term::Choose::Keep_Win32_Codepage ) {
  local $| = 1;   # braucht's das vielleicht noch?
  print "\e(U";
}