my $Doc= Win32::OLE->GetObject ($filename, 'Close' );

 my $range= $Doc->GoTo ($wd->{wdGoToBookmark}, { Name => 'FunctionalityMatrix' });
 $range->InsertParagraphBefore();
 $range->InsertBefore ('Hello world!');
 
 print "** $Doc  $Doc->{FullName}\n";