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