Thanks Mark, I am trying to put it together. I like to paginate every page of Infile. The following code gives some type of problem. I have 9 pages in the infile, and it gives page numbers to 5 pages only and erase original data after page 1.

use PDF::Reuse;
use strict;
my $infile = 'in.pdf';
my $outfile = 'out.pdf';
prFile($outfile);
my $count;
my $page = 1;
prFont('Courier-Bold');                    # Sets font
prFontSize(20);                            # And font size
while(1){
    $count =  prDoc({ file => $infile,
                      first => $page,
                      last => $page ,
#                      page => $page
                       });

    last if $count == 0;
    prText(250,50, "Page:$page");
    prPage();
    $page += 1;
}

prEnd();
[download]

Appreciate some help
Thanks