Select Code to Download

  find /path/of_interest -type d | sort > /path/for_log_info/dirlist.y
+ymmdd

open( DLIST, "<", $dirlist );
while ( my $dir = <DLIST>) {
...
    closedir D;
}
close DLIST;