use PDF::API2;

$pdf=PDF::API2->new("file.pdf");
print "Has ",$pdf->pages," Pages \n";