my $safe = Encode::FB_CROAK | Encode::LEAVE_SRC;
my $text = decode 'cp932', (encode "cp".Win32::GetOEMCP(), $windows_wide_filename, $safe), $safe;