use PDF::API2;
 use PDF::Table;
 my $pdftable = new PDF::Table;
 my $pdf = new PDF::API2(-file => "table.pdf");
 my $pdftable1 = new PDF::Table;
 my $page = $pdf->page;
$col_props1 = [
       {
                min_w => 36,
                justify => 'left',
        },
        {
               min_w => 36,
               justify => 'left',
               background_color => '#FFFF00',

        },
                 {
               min_w => 36,
                justify => 'left',
        },
          {
               min_w => 41,
                justify => 'left',
        },
];
my $some_data = [
 ["test1","3","3","3","3","3","3"],
 ["test2","3","3","3","3","3","3"],
 ["test3","3","3","3","3","3","3"],
 ["test4","3","3","3","3","3","3"],
 ["test5","3","3","3","3","3","3"],
 ];
$pdftable1->table(
         # required params
         $pdf,
         $page,
         $some_data,
         -x  => 50,
         -start_y => 215,
         -next_y => 0,
         -start_h => 400,
         -next_h => 0,
         # some optional params
         -w => 85,
         -padding => 5,
         -padding_right => 1,
         -padding_left => 5,
         -font=> $pdf->corefont("Helvetica Bold", -encoding => "utf8",),
         -font_size      => 4,
         -column_props => $col_props1,
         #-cell_props     => $row_props
          #cell background color for even rows
  );
$pdf->save();