Select Code to Download

find . -type d | wc -l     # Number of directories
find . -type d | sort      # Sorted listing of subdirectories

#!/usr/bin/perl
use strict;
...
sub wanted {
    -d && push(@directories, $File::Find::name);
}