Ah, I think I see what's going on, chcp apparently sets both the input (SetConsoleCP) and output (SetConsoleOutputCP) code pages, but when used to report the current code page, it apparently reports only the input code page, which is why I thought the changes don't persist.

C:\Temp>type test.pl
#!perl
use warnings;
use strict;
use open qw/:std :encoding(UTF-8)/;
use Win32;

print "GetConsoleCP: ", Win32::GetConsoleCP(), "\n";
print "GetConsoleOutputCP: ", Win32::GetConsoleOutputCP(), "\n";
print "chcp: "; system("chcp");

Win32::SetConsoleOutputCP(65001);
Win32::SetConsoleCP(65001) if @ARGV;

C:\Temp>perl test.pl
GetConsoleCP: 850
GetConsoleOutputCP: 850
chcp: Active Codepage: 850.

C:\Temp>perl test.pl x
GetConsoleCP: 850
GetConsoleOutputCP: 65001
chcp: Active Codepage: 850.

C:\Temp>perl test.pl x
GetConsoleCP: 65001
GetConsoleOutputCP: 65001
chcp: Active Codepage: 65001.

C:\Temp>chcp 850
Active Codepage: 850.

C:\Temp>perl test.pl
GetConsoleCP: 850
GetConsoleOutputCP: 850
chcp: Active Codepage: 850.
[download]