use Encode qw(encode);
use Win32::Codepage;
    my $w32encoding = Win32::Codepage::get_encoding();  # e.g. "cp936"
    my $encoding = $w32encoding ? Encode::resolve_alias($w32encoding) : '';
    print $encoding ? encode($string, $encoding) : $string;