print "\nOnly directories:\n", grep { -d "$ARGV[0]/$_" } readdir(DIR);