while (defined($file = readdir(DIR))) {   # Read directory entries
   print "Processing $file";
   if ($file=~/.pdf$/i) {                 # If PDF,
      &Handle_Acrobat_File }              #  Go Extract Info 

sub Handle_Acrobat_File {
   my $PDF= PDF->new ( $file );           #  Extract summary data 
   if ($PDF->IsaPDF) {                    # Is this really a PDF?
      $bkTitle = $PDF->GetInfo("Title");  # Assign title
      $bkGrp = $PDF->GetInfo("Subject");  # Assign group   
      $bkAuth = $PDF->GetInfo("Author");  # Assign Author
      print LNKS "$bkGrp|$bkTitle|$bkAuth|$dirname\\$file\n"; }