perl -e 'while(<./*>){@a=<$_/*>;rmdir if -d && ! $a[0]}'