Select Code to Download

use PDF::API2;

...
my $pdf = PDF::API2->open( 'yourfile.pdf' );
my $count = $pdf->pages();
print "O frabjous day! The PDF has $count pages.  Callooh! Callay!\n";