perl -e 'sub emptyFolders{my$dir=shift; $dir .="/" if $dir; my@dirs; while(<$dir*>){next unless -d; push @dirs, $_ if scalar (my@a=<$_/*>)}return @dirs} print $_, $/ for emptyFolders'