use strict;
use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Excel';
use Win32::OLE::Variant;
use Win32::OLE::NLS qw(:LOCALE :DATE);
$Win32::OLE::Warn = 3;

my $excelfile = $ARGV[0];
my $Excel = Win32::OLE->GetActiveObject('Excel.Application')
        || Win32::OLE->new('Excel.Application', 'Quit');

$Excel->{'Visible'} = 1;
$Excel->{DisplayAlerts} = 0;
my $Book = $Excel->Workbooks->Add();
my $Book = $Excel->Workbooks->Open($excelfile);

while(1){}