Select Code to Download

use File::Find;

...
            -f $_ and push @files, $File::Find::name;
            -d $_ and push @dirs,  $File::Find::name;
}, $start_dir );