#!/usr/bin/perl -w
use PDF::API2;  #for generate and fill table and design layout of table
use PDF::Table; # for generate and fill table and design layout of table
use PDF::Reuse; # for page number

use strict;
use warnings;

my $pdftable = new PDF::Table;
my $pdf = new PDF::API2(-file => "table.pdf");
my $page = $pdf->page;

# some data to layout
my $some_data =[
        ["1 Lorem ssssssssssssssssssssssssssssssssssipsum dolor",
        "Donec odio neque, faucibus vel",
        "consequat quis, tincidunt vel, felis."],
        ["Nulla euismod sem eget neque.",
        "Donec odio neque",
        "Sed eu velit."],
        ["1 Lorem ssssssssssssssssssssssssssssssssssipsum dolor",
        "Donec odio neque, faucibus vel",
        "consequat quis, tincidunt vel, felis."],
        ["Nulla euismod sem eget neque.",
        "Donec odio neque",
        "Sed eu velit."],
        ["1 Lorem ssssssssssssssssssssssssssssssssssipsum dolor",
        "Donec odio neque, faucibus vel",
        "consequat quis, tincidunt vel, felis."],
        ["Nulla euismod sem eget neque.",
        "Donec odio neque",
        "Sed eu velit."],
        ["1 Lorem ssssssssssssssssssssssssssssssssssipsum dolor",
        "Donec odio neque, faucibus vel",
        "consequat quis, tincidunt vel, felis."],
        ["Nulla euismod sem eget neque.",
        "Donec odio neque",
        "Sed eu velit."],
        ["1 Lorem ssssssssssssssssssssssssssssssssssipsum dolor",
        "Donec odio neque, faucibus vel",
        "consequat quis, tincidunt vel, felis."],
        ["Nulla euismod sem eget neque.",
        "Donec odio neque",
        "Sed eu velit."],
        ["1 Lorem ssssssssssssssssssssssssssssssssssipsum dolor",
        "Donec odio neque, faucibus vel",
        "consequat quis, tincidunt vel, felis."],
        ["Nulla euismod sem eget neque.",
        "Donec odio neque",
        "Sed eu velit."],
        ["1 Lorem ssssssssssssssssssssssssssssssssssipsum dolor",
        "Donec odio neque, faucibus vel",
        "consequat quis, tincidunt vel, felis."],
        ["Nulla euismod sem eget neque.",
        "Donec odio neque",
        "Sed eu velit."],
        ["1 Lorem ssssssssssssssssssssssssssssssssssipsum dolor",
        "Donec odio neque, faucibus vel",
        "consequat quis, tincidunt vel, felis."],
        ["Nulla euismod sem eget neque.",
        "Donec odio neque",
        "Sed eu velit."],
        ["1 Lorem ssssssssssssssssssssssssssssssssssipsum dolor",
        "Donec odio neque, faucibus vel",
        "consequat quis, tincidunt vel, felis."],
        ["Nulla euismod sem eget neque.",
        "Donec odio neque",
        "Sed eu velit."],
        ["1 Lorem ssssssssssssssssssssssssssssssssssipsum dolor",
        "Donec odio neque, faucibus vel",
        "consequat quis, tincidunt vel, felis."],
        ["Nulla euismod sem eget neque.",
        "Donec odio neque",
        "Sed eu velit."],
        ["1 Lorem ssssssssssssssssssssssssssssssssssipsum dolor",
        "Donec odio neque, faucibus vel",
        "consequat quis, tincidunt vel, felis."],
        ["Nulla euismod sem eget neque.",
        "Donec odio neque",
        "Sed eu velit."],
        ["1 Lorem ssssssssssssssssssssssssssssssssssipsum dolor",
        "Donec odio neque, faucibus vel",
        "consequat quis, tincidunt vel, felis."],
        ["Nulla euismod sem eget neque.",
        "Donec odio neque",
        "Sed eu velit."],
        ["1 Lorem ssssssssssssssssssssssssssssssssssipsum dolor",
        "Donec odio neque, faucibus vel",
        "consequat quis, tincidunt vel, felis."],
        ["Nulla euismod sem eget neque.",
        "Donec odio neque",
        "Sed eu velit."],
        ["1 Lorem ssssssssssssssssssssssssssssssssssipsum dolor",
        "Donec odio neque, faucibus vel",
        "consequat quis, tincidunt vel, felis."],
        ["Nulla euismod sem eget neque.",
        "Donec odio neque",
        "Sed eu velit."],
        ["1 Lorem ssssssssssssssssssssssssssssssssssipsum dolor",
        "Donec odio neque, faucibus vel",
        "consequat quis, tincidunt vel, felis."],
        ["Nulla euismod sem eget neque.",
        "Donec odio neque",
        "Sed eu velit."],
        ["1 Lorem ssssssssssssssssssssssssssssssssssipsum dolor",
        "Donec odio neque, faucibus vel",
        "consequat quis, tincidunt vel, felis."],
        ["Nulla euismod sem eget neque.",
        "Donec odio neque",
        "Sed eu velit."],
        ["1 Lorem ssssssssssssssssssssssssssssssssssipsum dolor",
        "Donec odio neque, faucibus vel",
        "consequat quis, tincidunt vel, felis."],
        ["Nulla euismod sem eget neque.",
        "Donec odio neque",
        "Sed eu velit."],
        ["1 Lorem ssssssssssssssssssssssssssssssssssipsum dolor",
        "Donec odio neque, faucibus vel",
        "consequat quis, tincidunt vel, felis."],
        ["Nulla euismod sem eget neque.",
        "Donec odio neque",
        "Sed eu velit."],
        ["1 Lorem ssssssssssssssssssssssssssssssssssipsum dolor",
        "Donec odio neque, faucibus vel",
        "consequat quis, tincidunt vel, felis."],
        ["Nulla euismod sem eget neque.",
        "Donec odio neque",
        "Sed eu velit."],
        ["1 Lorem ss jddhjssssssssssssssssssssssssssssssssipsum dolor",
        "Donec odio neque, faucibus vel",
        "consequat quis, tincidunt vel, felis."],
        ["Nulla euismod sem eget neque.",
        "Donec odio neque",
        "Sed eu velit."],
        ["1 Lorem ssssssssssssssssssssssssssssssssssipsum dolor",
        "Donec odio neque, faucibus vel",
        "consequat quis, tincidunt vel, felis."],
        ["Nulla euismod sem eget neque.",
        "Donec odio neque",
        "Sed eu velit."],
        ["1 Lorem ssssssssssssssssssssssssssssssssssipsum dolor",
        "Donec odio neque, faucibus vel",
        "consequat quis, tincidunt vel, felis."],
        ["Nulla euismod sem eget neque.",
        "Donec odio neque",
        "Sed eu velit."],
];

# build the table layout
$pdftable->table(
         # required params
         $pdf,
         $page,
         $some_data,
         -x  => 20, #X - coordinate of upper left corner
         -start_y => 700, #initial_y_position_on_first_page
         -next_y => 700, #$initial_y_position_on_every_new_page
         -start_h => 700, #table_height_on_first_page
         -next_h => 600, #table_height_on_every_new_page,
         # some optional params
         -w => 570,
         -padding => 5,
         -padding_right => 10,
         -background_color_odd => "green",
         -background_color_even => "lightblue",
 );

$pdf->saveas();
`cp table.pdf table2.pdf`;
#*********** page number *************
my $n = 1;
prFile('table.pdf');

while (1) {
     my $pagenumber="Page:";
     $pagenumber.=$n++;
     prText(50, 740, "File name: Table.pdf");
     prText(550, 740, $pagenumber);
     last unless prSinglePage('table2.pdf');
}
prEnd();

#******** insert image ****************