use File::Find;
find(\&wanted, shift(@ARGV));

# I would like the @dirlist here
# but I can't get it returned for the life of me.

exit;

sub wanted {
	return unless -d $_;
	my @dirlist;
	push(@dirlist,$File::Find::name);
	return(@dirlist);
}