use strict;
use Win32::Word::Writer;
my $oWriter = Win32::Word::Writer->new();

$oWriter->WriteParagraph("Testing", heading => 1);         
$oWriter->WriteParagraph("", style => "Heading 9"); 
$oWriter->NewParagraph();
$oWriter->TableBegin();
$oWriter->TableRowBegin();
$oWriter->TableColumnBegin();
$oWriter->SetBold(0);
$oWriter->TableColumnBegin();
$oWriter->Write("Column 1");
$oWriter->TableColumnBegin();
$oWriter->Write("Column 2");
$oWriter->TableColumnBegin();
$oWriter->Write("URL");

my $counter = 0;
my @urls = qw (http://ww.perlmonks.org http://www.perl.com http://www.perl.org);

for my $i (0..2){
        $counter++;
        $oWriter->TableRowBegin();

	for my $i (0..1){
    		$oWriter->TableColumnBegin();
    		$oWriter->Write("$counter");
	}

        for my $u(@urls){
          $oWriter->TableColumnBegin();
          #$oWriter->SetStyle("hyperlink");
          #$oWriter->Write("$u");
          $oWriter->Write (""); # Null write, to make a selection
          my $sel= $oWriter->oSelection;
          $sel->Hyperlinks->Add( $sel->Range, $u);
         # $oWriter->ClearCharacterFormatting();
       }
}

$oWriter->TableEnd();
$oWriter->SaveAs("my_file.doc");