use Win32 qw( );

my $ansi_enc = "cp".Win32::GetACP();