use Win32::OLE;

#my $Word = Win32::OLE->new('Word.Application')or die "Couldn't open word";

## use the following if Word is already running
my $Word = Win32::OLE->GetActiveObject("Word.Application", \&QuitApp);


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