find . -type d -maxdepth 1 | perl -lne "system qq(ls $_ > ./$_/_list.txt)"