in reply to Count pages of PDF file

We can do like this..

use PDF::API2;
foreach $doc (@ARGV)
{
$pdf = PDF::API2->open($doc);
$pages = $pdf->pages;
$totalpages += $pages;
print "$doc contains $pages pages\n";
}
print "Total pages of pdf pages = $totalpages\n";