#! /usr/bin/perl

# Environment: Ubuntu 22.04LTS, Perl 5 version 34 subversion 0

use strict;
use warnings;
use CAM::PDF;

my $pdf = CAM::PDF->new('DX.pdf');

my $np = $pdf->numPages();
print "Number of pages: $np\n";

$pdf->extractPages( 2..8 );

$pdf->cleanoutput('DXout.pdf');