自問自答，剛好找到方法
http://duramecho.com/ComputerPrograms/DeleteEmptyDirectories/
use File::Find;
finddepth(sub{rmdir},'.')
※ 引述《sixth (12345(6))》之銘言：
: 我有一個目錄，裡面有很多層，
: 在裡面有些是空目錄，有些不是
: 請問如何有效率地把空目錄移除