Hello again lennelei,

This works as expected, based on your last update (To resume: for any pdf, I need to keep at most the 100 first pages (if the pdf is 15 pages, I leave it untouched ; if it's 654 pages, I create a new pdf with the pages 1 to 100 included).).

It creates a new pdf (100 pages) if the pdf is (above 100 pages).

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

my $file='test.pdf';

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

if ($oldpdf->pages() > 100) {
    printf " (%d pages)\n", $oldpdf->pages();
    for my $page_nb (1..100) {
        $newpdf->importpage($oldpdf, $page_nb, $page_nb);
    }
    $newpdf->saveas("_".$file);
}
[download]

Hope this helps, BR.