请教：程序读Excel的sheet名乱码如何解决？

[salmon]

hi，现在我遇到一个问题，请大家帮下忙。

开发平台：windows XP
开发工具：strawberryperl
PERL版本：5.14.2

我写了一个批量解析excel文件的perl程序。

#test.pl
my $Format = Spreadsheet::ParseExcel::FmtUnicode->new(Unicode_Map => 'CP936');
my $parser = Spreadsheet::ParseExcel->new();
my $workbook = $parser->parse("$bookname",$Format);

foreach my $worksheet ($workbook->worksheets()) {
                my $sheetname = $worksheet->get_name();
                print "sheetname=$sheetname\n";
}

直接运行该程序 perl test.pl ，程序正常打出excel文件的每个sheet名字（这里的sheet名字是中文字符）。
由于需要将该程序弄成二进制形式（不开放源码），我安装了PAR::PACKER模块，使用如下命令转换该文件：

pp -o test.exe test.pl

结果，执行生成的test.exe文件时，打出来的sheet名是乱码格式。


想请教下有没有前辈曾经做过或者留意过这方面的信息，希望不吝赐教。

或者不使用这种打包方法，用别的方法的也请您指教下。

先行谢过！