for (<*.*>) {
   print $_ if -d;
}