use PDF::API2;
use PDF::Table;

my $pdftable = new PDF::Table;
my $pdf = new PDF::API2(-file => "table_of_lorem.pdf");
my $page = $pdf->page;
my $some_data = [
   ["1 Lorem ipsum dolor", "Donec odio neque, faucibus vel", "consequat quis, tincidunt vel, felis."],
   ["Nulla euismod sem eget neque.", "Donec odio neque", "Sed eu velit."],
];
 
my $left_edge_of_table = 50;
my @tmp = @$some_data;
my (undef, undef, $boty) = $pdftable->table(
     $pdf,
     $page,
     \@tmp,
     x => $left_edge_of_table,
     w => 495,
     start_y => 750,
     next_y  => 700,
     start_h => 300,
     next_h  => 500,
     padding => 5,
     padding_right => 10,
     background_color_odd  => "gray",
     background_color_even => "lightblue",
);

@tmp = @$some_data;
$pdftable->table(
     $pdf,
     $page,
     \@tmp,
     x => $left_edge_of_table,
     w => 500,
     start_y => $boty - 10,
     next_y  => 705,
     start_h => 305,
     next_h  => 505,
     padding => 5,
     padding_right => 10,
     background_color_odd  => "navy",
     background_color_even => "red", #cell background color for even rows
);
 
$pdf->saveas();