in reply to Getting all the directories
open I, "find $dir -print | "; @ary = map { chomp } <I>;
added the -print for sake of portability. Thanks Aristotle for the alternative solution with the "wrapping" chomp. I always forget that one.
In Section
Seekers of Perl Wisdom