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