use strict;
use 5.16.3;
use Win32::OLE;
use Win32::OLE::Enum;

my $word = Win32::OLE->GetActiveObject('Word.Application') || Win32::OLE->CreateObject('Word.Application') or die 'Could not open Microsoft Word';