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;