# initialize Word object
my $Word = Win32::OLE->GetActiveObject("Word.Application", \&QuitApp);
if( !$Word ) {
   $Word = Win32::OLE->new("Word.Application", \&QuitApp) or die "couldn't create an OLE object";
}

$Word->Documents()->Open("c:\\Projects\\wtemplates\\TEMPLATE.DOC");

...