use CAM::PDF;
my $filename = 'QA_Software_Automation_Developer.pdf';
my $pdf = CAM::PDF->new($filename);
my $pagenos = $pdf->numPages();
for (my $i=1;$i<=$pagenos;$i++) {
$page_text .= ' '. $pdf->getPageText($i);
}
print "page :: $page_text\n";

##</code><code>##

Can't call method "numPages" on an undefined value at readpdf.pl line