use PDF::Report;
use PDF::Report::Table;

$main_rpt_path = 
"/home/ics/work/rpts/interimmtr_prebill.rpt";
    
$main_rpt_pdf = 
  new PDF::Report('PageSize' => 'letter', 
  'PageOrientation' => 'Landscape',);
    
$main_rpt_tbl_wrt = 
  PDF::Report::Table->new($main_rpt_pdf);

$main_rpt_tbl_wrt->addTable(
build_table_writer_array($pt_column_headers_ref));

##</code><code>##

$main_rpt_tbl_wrt->addTable(
build_table_writer_array($pt_column_headers_ref), 
10,10, 0xFFFFFF, 0xFFFFCC);


##</code><code>##

    
sub build_table_writer_array
# $data -- an array ref of data
#
    
{
   my $data = shift @_;
    
   my $out_data_table = undef;
    
   $out_data_table = [[@$data],];
    
   return $out_data_table;
}

##</code><code>##

    Use of uninitialized value in subtraction (-) at /usr/local/share/perl5/PDF/Report/Table.pm line 88.
     at /usr/local/share/perl5/PDF/Report/Table.pm line 88