Select Code to Download

## see what we got

...
     }
  }
}

find( \&do_process, ($dirname) ); 

...
   my $file_name = File::Fine::name; #there is no $_ or @_ context her
+e
....
}

  say "-------system out---------";
  #system("cat $out_file");
...
  print while (<$fh>);
  close $fh;
  say "----------------";

print "OUTFILES*******************\n";
foreach my $directory (glob "my_data/*")
...
      print "   File=$file\n";
   }
}

OUTFILES*******************
...
   File=my_data/03-04-2019-22-28-51/03-04-2019-22-28-51.57.txt
   File=my_data/03-04-2019-22-28-51/03-04-2019-22-28-51.9.txt
=cut