Select Code to Download

  my $iterator = $fc->scan_blah_files;
  while ($iterator->next_file) {
...
    print $file . "\n";
  }
}

sub AUTOLOAD {
  our $AUTOLOAD;
...
    return @{$s->{$type.'_files'}};                 # return file subs
+et
  }
}