use strict;
use Win32::OLE;
use Win32::OLE::Const;

my $abat = Win32::OLE->new('AcroExch.App');
my $abdoc = Win32::OLE->new('AcroExch.AVDoc');
$abdoc->Open('d:\Documentation\perl\xtk.pdf','d:\Documentation\perl\xtk.pdf');
my $pddoc = $abdoc->GetPDDoc;
print "pp=".$pddoc->GetNumPages,"\n";
for (qw(Title Subject Author)) {
  print "$_:".$pddoc->GetInfo($_),"\n";
}