Select Code to Download

use strict;
use Test;
...

my $ansicp = Win32::GetACP();
ok($ansicp > 0 && $ansicp <= 65001);