chdir "/home/www";
opendir DIR, ".";
my @third_level_directories_only=
    (
     grep { $_ ne '.' and $_ ne '..' and -d } (readdir DIR)
    );

closedir DIR;