#!/usr/bin/perl -w
use strict;

use Win32::OLE;
my ($t_row, $t_col) = (4,2);
my $word = Win32::OLE->CreateObject("Word.Application");
$word->{Visible} = 1;
my $doc = $word->Documents->Add;
my $table = $doc->Tables->Add($word->Selection->Range,$t_row, $t_col);
$table->Select();
$table->AutoFormat(3,1,1,1,1,1,0,1,0,1);

$word->Selection->MoveUp(5,4);
$table->Rows->{HeadingFormat} = -1;
1;