my $datasource="somelocation\\somefile.cdm";
my $savelocation="somelocation\\somefile.doc";
use strict;
use Win32::OLE ;
use Win32::OLE::Const 'Microsoft Word';
my $Word= Win32::OLE->new('Word.Application', 'Quit');
$Word->Documents->Open($template);
$Word->ActiveDocument->MailMerge->OpenDataSource($datasource,);

$Word->ActiveDocument->SaveAs($savelocation);