opendir(DIR,$dir) or die $!;
my @dirs = map{$dir.'/'.$_}grep{-d $_ && $_ !~ /^\.\.?$/}readdir(DIR);
closedir(DIR);