use PDF;
$filename=shift;
my $PDFfile = PDF->new ($filename);
$key="Author";
$info = $PDFfile->GetInfo ($key);
print "got author $info \n";
print "num pages ", $PDFfile->Pages,"\n";