or download this
while (defined($file = readdir(DIR))) { # Read directory entries
print "Processing $file";
...
$bkGrp = $PDF->GetInfo("Subject"); # Assign group
$bkAuth = $PDF->GetInfo("Author"); # Assign Author
print LNKS "$bkGrp|$bkTitle|$bkAuth|$dirname\\$file\n"; }