Select Code to Download

system('chcp 65001 2>nul 1>nul')

system(cmd => ( '/c' => 'chcp 65001 2>nul 1>nul' ) )

open(my $fh, '>', 'nul') or die "open nul: $!\n";
my $pid = open3(
...
    chcp => 65001,
);
waitpid($pid, 0);