$CONSOLE->InputCP(1252);

##</code><code>##

>perl -MData::Dumper -e"$Data::Dumper::Useqq=1;
   system('chcp 1252'); print(Dumper(`dir /b *.txt`));
   system('chcp 437'); print(Dumper(`dir /b *.txt`));"
Active code page: 1252
$VAR1 = "\355.txt\n";
Active code page: 437
$VAR1 = "\241.txt\n";