use PDF::API2;
my $pdf = PDF::API2->open('test_file.pdf');
print "'test_file.pdf' has " . $pdf->pages . " pages\n";