Select Code to Download

sub AUTOLOAD {
  our $AUTOLOAD;
...
  return $s->{_last_iterator_file};
}

  while ($fp->get_next_file) {
    print $fp->selected_file . "\n";
...
      print $fp->selected_file . "\n";
    }
  }