use strict;
use warnings;
use Win32::OLE;

my $word = Win32::OLE->new('Word.Application');
$word->{Visible} = 1;
my $filename = 'C:/tmpx/test.docx';
my $document = $word->Documents->Open($filename);