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

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

for my $pageNumber ( 1 .. $pdf->numPages() ) {
	my $pageText = $pdf->getPageText($pageNumber);
	my @certainLines = ( split /\n/, $pageText )[ 9 .. 14 ];

	print "---------- Lines 10 - 15 on Page $pageNumber ----------\n";
	print +( join "\n", @certainLines ) . "\n";
	print "---------- End Page $pageNumber ----------\n";
}