while ($fp->next_parseable_file) {
      print $fp->short_name . "\n";
      while ($fp->next_nonparseable_file) {
        print $fp->short_name . "\n";
      }
    }