#!C:/Perl/bin/perl.exe
#
use strict;
use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Excel';
$Win32::OLE::Warn = 3;
my $Excel = Win32::OLE->GetActiveObject('Excel.Application')
 || Win32::OLE->new('Excel.Application', 'Quit');
my $Book = $Excel->Workbooks->Open("D:\\tmp\\Temp.xls");
$Book->Close;
$Excel->quit();