use strict;
use Win32::OLE;
use Win32::OLE::Const 'Microsoft Word';
use Win32::OLE::Const 'Microsoft Excel';

my $xl = Win32::OLE::Const->Load("Microsoft Excel");      
my $excel = Win32::OLE->CreateObject('Excel.Application') || die $!;
$excel->{DisplayAlerts}=0;
$excel->{Calculation}=-4135;