Select Code to Download

sub get_next_file {
  my $s = shift;
...
  $s->{_selected_file} = $next_file;
  return $next_file;
}