perl -le"print for sort  grep!/^\.\.?/, map{ opendir my($DIR), $_; readdir $DIR } map glob, @ARGV" ./*