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->ClearCharacterFormatting();  

}

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