Select Code to Download

  use strict;
  use warnings;
...
  while ( my $file = $next->() ) {
    ReadThat(  $file  );
  }