my $template = "templates\\standard letter.doc";
my $datasource = "c:\\windows\\desktop\\test.csv";
my $ret = "c:\\windows\\desktop\\test.doc";
use strict;
use Win32::OLE ;
use Win32::OLE::Const 'Microsoft Word';
my $Word= Win32::OLE->new('Word.Application', 'Quit');
$Word->Documents->Open($template);
#line 2278
$Word->ActiveDocument->MailMerge->OpenDataSource($datasource);
$Word->ActiveDocument->SaveAs($ret);