opendir(DIR, '/home/www/');
while (my $dir = readdir(DIR)) {
	print $dir;
	next if $dir =~ /^\.\.?$/ || ! -d $dir;
	push(@dirs, $dir);
}
closedir(DIR);