Select Code to Download

use PDF;

...
my $pdf=PDF->new('bop032.pdf');

print "This PDF has ",$pdf->Pages," Pages \n";