Select Code to Download

sub all {
  my $self = shift;
...
    $$self->$AUTOLOAD(@_) while ($$self->next_file);
  }
}

sub delete { unlink (shift)->selected_file }