IMO getting the perl manifest changed to use ACP 65001 is the ideal configuration, anyway. This allows you to write unicode filenames on Windows the same as on Linux (encode to utf-8 first). Otherwise if you want to write a character that isn't in your codepage you need a bunch of special cases like if ($^O eq 'MSWin32') { OpenFileW($name); ... }
Comment on Re^5: confusing result from Win32::GetACP()