use Win32::OLE;
use Win32::OLE::Const 'Microsoft Word';

my $ObjectClass = "Word.Application";
my $File2  = "c:\\_test\\templateOUT.docx";

my $Word = Win32::OLE->GetActiveObject($ObjectClass) ||
Win32::OLE->new($ObjectClass, 'Quit');

$Word->{'Visible'} = 1;

$Word->Documents->Open("C:\\_test\\template.docx") || die("Unable to open template document ",
Win32::OLE->LastError());


my $document = $Word->ActiveDocument;

# selection is the insertion point.
my $selection = $Word->Selection;


my $mytxt = "Comment Text";


$Word->Selection->TypeText ({Text => $mytxt});

$Word->ActiveDocument->SaveAs({FileName => $File2});

$Word->Quit();