use strict;
use Win32::OLE ;
use Win32::OLE::Const 'Microsoft Word';
$Win32::OLE::Warn = 3; # Fail on errors

my $Word = Win32::OLE->GetActiveObject('Word.Application')
    || Win32::OLE->new('Word.Application', 'Quit');