my $word = Win32::OLE->GetActiveObject('Word.Application');