perl 打开excel,不能使用文件的相对路径

今天用perl处理excel文件时，脚本和被处理文件在同一路径下，open的参数直接写了文件名，运行脚本时，打不开文件。奇怪了好一阵。

之后将把open的参数改成绝对路径就可以正常运行。上网查询了下，发现07年已经有人提过这个问题，必须得使用绝对路径。

下面是例子

#!/usr/bin/perl

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

$Win32::OLE::Warn = 3;

my $Excel = Win32::OLE->GetActiveObject('Excel.Application') || Win32::OLE->new('Excel.Application', 'Quit');
#my $Book = $Excel->Workbooks->Open('清单.xls');  这样会报错
my $Book = $Excel->Workbooks->Open('E:\qindan\清单.xls');
my $Sheet = $Book->Worksheets(1);

$Book->Close;