my $avdoc = Win32::OLE->new('AcroExch.AVDoc);
$avdoc->Load("c:\\test.pdf", "");

my $pdDoc = $avdoc->GetPDDoc();
print "page count: " . $pdDoc->GetNumPages . "\n";
$avdoc->Close(1);