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

##</code><code>##

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