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

my($pdfFile,$pdfText,$numpages,$pagecounter,$textfile);

$pdfFile = CAM::PDF->new('c:/Downloads/test.pdf');
$numpages = $pdfFile->numPages();
open($textfile,">",'test.txt');
for ($pagecounter = 1;$pagecounter <= $numpages;$pagecounter++) {
  $pdfText = $pdfFile->getPageText($pagecounter);
  # check whether the respective page contains text at all
  if (defined($pdfText)) {
    print $textfile $pdfText;
  }
}
close($textfile);