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

$doc = $word->Documents->Open( { FileName => $document_path,
                                , ReadOnly => 1
                                } );