#!/usr/bin/env perl

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');