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