PERL 取得本地语言编码的问题

PERL 取得本地语言编码的问题
use Win32::OLE::NLS ;
my $lan=GetSystemDefaultLangID();
print "lan=$lan\n";
得到2052,我想得到GB2312之类的结果,用于UTF8的encode,
谁知道用什么方法?谢谢