Perl 关闭Excel的问题

Question

如题，当程序执行到 $app_xls -> Quit() or die "Quit Excel Error!";
就报错了，改成 $app_xls -> Quit or die "Quit Excel Error!";
还是报错sub delete_empty_file{

#my $src_name = "D:\\book2"."\.xls";
my $src_name = shift; #新建一个EXCEL应用对象，然后我们就可以对excel进行操作。
#my $app_xls = Win32::OLE->new('Excel.Application', sub{$_[0]->Quit})
my $app_xls = Win32::OLE->new('Excel.Application', "Quit")
or die "Excel 初始化失败，你可能没有安装Excel！";
$app_xls->{DisplayAlerts} = 'False';    #关掉excel的提示，比如是否保存修改之类的
 
#打开一个EXCEL文件
my $src_book = $app_xls->WorkBooks->Open($src_name);
my $src_sheet = $src_book->Worksheets(1); #选中一工作表
my $sheet_name = $src_sheet->name;

#printf ($src_sheet->name);
#printf "\n";

if("pivotTableSheetStore" ne $sheet_name){
#undef $sheet_name;
#undef $src_sheet;
#undef $src_book;
$src_book -> Close() or die "Close workbook Error!";
$app_xls->WorkBooks-> Close() or die "Close workbooks Error!";
$app_xls -> Quit() or die "Quit Excel Error!";
#$app_xls->WorkBooks->Close($src_name) or die "close Excel Error\n";
#close($app_xls) or die "Close $app_xls Error!";
print ($src_name);
print "\n";

unlink $src_name or die "Error deleting file!";
exit(0);
}
}