ok I got it to work but I have a weird problem that it is now showing multiple instances of the directory depending on how many sub-directories it has.. so if the directory has 3 sub directories it lists the root directory 3 times.

Code

find(\&dir_names, $wellpath);

sub dir_names {

# skip over everything that is not a directory return '' if ! -d $File::Find::name;