Select Code to Download

use strict;
use Win32::OLE qw(in with);
...
               "Data THREE" ,
               "Data FOUR");

$Word->Selection->TypeText ({ Text => "This is plain header text"});
$MyRange->Collapse({Direction=>wdCollapseEnd});
$Word->Selection->TypeText ({ Text => "\n\n" });   #add the table 2 li
+nes below
$Word->Selection->MoveDown({Count => 2});

my @headers = ("Header ONE",
               "Header TWO",
...
my $Doc= $Word->{ActiveDocument};
$Doc->SaveAs('c:\perl\projects\testtable.doc');