use CAM::PDF;
use CAM::PDF::PageText;
my $pdf = CAM::PDF->new(test.pdf); 
foreach (1..($pdf->numPages())) {
my $page_cont = $pdf->getPageContentTree($_);
print  CAM::PDF::PageText->render($page_cont);
}