my @tableProp5 = (
                      widths => [inches(3), inches(4)], #--> width of 
+each column
                      align => 'l l',
                     );

my @myText = (
                [\'\fs20\b this', 'that'],
                [\'\fs20\b this', 'that'],
                [\'\fs20\b this', 'that'],
                [\'\fs20\b this', 'that'],
            );
RTFTable(\@tableProp5, 9, 7,\@myText);

$fh->close();

sub RTFTable{
        my @tableProps = @{$_[0]};
        my $headerColor = $_[1];
        my $bgColor = $_[2];
        my @Text = @{$_[3]};
        my $count = 0;
        my $oDecl5;

        foreach my $aref (@Text) {
            if($headerColor eq undef || $headerColor eq "" || $headerC
+olor == 0 || $count == 0){
                $oDecl5 = RTF::Writer::TableRowDecl->new(@tableProps);
                $oDecl5->add_bgcolors($headerColor);  # Adds backgroun
+d color using color hash
                $fh->row($oDecl5, @$aref);
                $count++;
            }else{
                $oDecl5 = RTF::Writer::TableRowDecl->new(@tableProps);
                $oDecl5->add_bgcolors($bgColor);  # Adds background co
+lor using color hash
                $fh->row($oDecl5, @$aref);
            }
        }
}
[download]