my @dirs = grep {-d} glob ("$path/*");