#!/usr/bin/perl

use strict;
no strict qw/subs/;
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');