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

use Win32::OLE;
my ($t_row, $t_col) = (70,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->Cell(1,1)->Range->{Text} = "heading1";
$table->Cell(1,2)->Range->{Text} = "heading2";
$table->Rows->{HeadingFormat} = -1;