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

##</code><code>##

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

##</code><code>##

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