use warnings;
use strict;
use OLE;

my $word = CreateObject OLE "Word.Application";
$word -> {Visible} = 1;
my $document = $word -> Documents -> Open("C:/file_to_open.doc");

##</code><code>##

my $text = $document -> {Content} -> {Text};