use strict;
use OLE;

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