Select Code to Download

use File::Find;

...
find( &wanted, '.' );

# @dir_list now contains the list of directories found.

use File::Find;

...

find( &process_each_file, '.' );
# All files have now been read & relevant stuff is in the database.