Select Code to Download

#!perl -w
use strict;
...
my $ex = Win32::OLE->GetActiveObject('Excel.Application') or die "No a
+ctive objects around\n";
$ex->{DisplayAlerts} = 0;
$ex->Quit;

taskkill /f /im EXCEL.EXE