Hello again lennelei,

Notice this line($newpdf->import_page($oldpdf, $page_nb, $page_nb);) it uses 3 parameters not 2. Try to copy the example that I provided you and test it. Does it work?I simulate the scenario with a pdf that I have 7 pages and seems to be working just fine.

I do not have a pdf 100 pages so I can not really check it but give it a try I assume it should work.

Update: I just tested the sample of code that I provided you with a pdf of 123 pages. It works just fine. The only line that I modified is the for loop (for my $page_nb (1..$oldpdf->pages())).

Update2: Full sample of executable code bellow:

#!/usr/bin/perl
use strict;
use warnings;
use PDF::API2;
use feature 'say';

my $file='test.pdf';

my $newpdf = PDF::API2->new();
my $oldpdf = PDF::API2->open($file);

if ($oldpdf->pages() > 1) {
    say $oldpdf->pages() . ' pages.';
    for my $page_nb (1..$oldpdf->pages()) {
        $newpdf->import_page($oldpdf, $page_nb, $page_nb);
    }
    $newpdf->saveas("test_2.pdf");
}
[download]

Let us know if it works, BR.