use PDF;


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

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