So the best way is probably to use prText() at an (x,y) location of your choosing and keep it consistent throughout your document. If your document opens like book or magazine, then positions of the page numbers should be set spearately for the left and right facing pages, e.g., lower left corner for left ages and lower right corner for right pages.

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