#!perl -w
use strict;
use Win32::OLE;

my $ex = Win32::OLE->GetActiveObject('Excel.Application') or die "No active objects around\n";
$ex->{DisplayAlerts} = 0;
$ex->Quit;