Select Code to Download

sub AUTOLOAD {
  our $AUTOLOAD;
...
  return @{$s->{$type.'_files'}} if ($mode eq 'get');
  return new ref($s).'::Iterator' (@{$s->{$type.'_files'}}) if ($mode 
+eq 'scan');
}

sub new {
  my $class = shift;
...
}

sub selected_file { (shift)->[0] }