Ive "borrowed" this code for cursing directories and I would like to modify it to go ONLY one level deep. Ive read all the Find::File stuff I could find, but still cant get it to go. Any help,... please?

    sub find(&@){&File::Find::find}
    *name = *File::Find::name;
    find{&format, &add if -d}$ENV{'DOCUMENT_ROOT'};
    sub format{$name=~s/^$ENV{'DOCUMENT_ROOT'}\///}
    sub add{push(@list, "$name\n")}
    @sorted = sort{ lc $a cmp lc $b} @list;
[download]