use strict;
use warnings;
use PDF::API2;

my $pdf = PDF::API2->new();
my $old = PDF::API2->open('C:/_32/Peugeot/Chapter_01_engine.pdf');

my $count = $old->pages();
print "Original document contains 138 pages (according to Adobe)\n";
print "Original document contains $count pages (according to PDF::API2)\n";

# Add page 45 from the old PDF as page 1 of the new PDF
my $page = $pdf->importpage($old, 45);

print "\$page: $page\n";

$count = $pdf->pages();

print "New pdf doc contains $count pages\n";

$pdf->saveas('C:/_32/Peugeot/head.pdf');

##</code><code>##

Original document contains 138 pages (according to Adobe)
Original document contains 138 pages (according to PDF::API2)
$page: PDF::API2::Page=HASH(0x321bc24)
New pdf doc contains 1 pages