in reply to Find Empty directories and removing it

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