#!/usr/bin/env perl

use strict;
use warnings;

use PDF::API2;

my $pdf = PDF::API2::->new();
my $font = $pdf->font('Helvetica-Bold');

for my $content ('A' .. 'I') {
    my $page = $pdf->page();
    my $text = $page->text();
    $text->font($font, 20);
    $text->position(200, 700);
    $text->text($content);
}

$pdf->save('DX.pdf');

##</code><code>##

#!/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');

##</code><code>##

Number of pages: 9