my ( @dirs, @files)= 
   ( @{-d}, @{-f} ) for (readdir DIR);