print join "\n", grep {-d $_} <*>;