Select Code to Download

    my $it1 = $fp->next_parseable_file;
    while (my $file1 = $it1->next) {
...
        print $fp->short_name($file2) . "\n";
      }
    }

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