use strict;
use warnings;
use PDF::API2;
#...some code here...
#for testing purpose:
my $file='path_to_some.pdf';
#

my $oldpdf = PDF::API2->open($file);
if ($oldpdf->pages > 100) {
	my $newpdf = PDF::API2->new;
	printf " (%d pages)\n", $oldpdf->pages;
	for my $page_nb (1..10) {
		$newpdf->importpage($oldpdf, $page_nb);
	}
	$newpdf->saveas("_$file");
}

##</code><code>##

use strict;
use warnings;
use CAM::PDF;
#...some code here...
#for testing purpose:
my $file='path_to_some.pdf';
#

my $oldpdf = CAM::PDF->new($file) or die "$CAM::PDF::errstr\n";
if ($oldpdf->numPages() > 100) {
	printf " (%d pages)\n", $oldpdf->numPages();
	$oldpdf->extractPages(1..100);
	$oldpdf->cleanoutput("_$file");
}