$ perl -E '
    use strict;
    use warnings;
    use PDF::API2;
    my $pdf = PDF::API2->new();
    my $font = $pdf->font("Helvetica-Bold");
    for my $p (1 .. 10) {
        my $page = $pdf->page();
        my $text = $page->text();
        $text->font($font, 20);
        $text->position(200, 700);
        $text->text("Page: $p");
    }
    $pdf->save("test.pdf");
'

$ file test.pdf
test.pdf: PDF document, version 1.4, 10 pages

$ perl -E '
    use strict;
    use warnings;
    use PDF::API2;
    my $pdf = PDF::API2->open("test.pdf");
    say "Page count: ", $pdf->page_count();
'
Page count: 10