use PDF;

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