perl脚本不能读取EXCEL的泰文或其他奇怪文字

perl脚本不能读取EXCEL的泰文或其他奇怪文字
#这是我写的一个读取EXCEL表里元素的PERL脚本,当EXCEL存储的是中文或英文时能将其存储的内容打印出来,但当EXCEL表里存储的是泰文或阿拉伯文的话,打印出来的就全是问号(?),那个大虾能帮我解决一下这个问题,谢谢!#!/usr/local/bin/perl

use strict;
use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Excel';

$Win32::OLE::Warn = 3; #die on errors

my ($ref_array0);

my $filename0 = "D:\\test\\ref0_list.xls"; #first excel file name


my $excel = Win32::OLE->GetActiveObject('Excel.Application')
|| Win32::OLE->new('Excel.Application', 'Quit'); #get already active Excel application or open new

my $book0 = $excel->Workbooks->Open("$filename0"); #open Excel file
my $sheet0 = $book0->Worksheets(1); #select worksheet number 1
my $array0 = $sheet0->cells(5,'B')->{'Value'}; #get the contents

print($array0);

$book0->Close;


__END__