自问自答，刚好找到方法
http://duramecho.com/ComputerPrograms/DeleteEmptyDirectories/
use File::Find;
finddepth(sub{rmdir},'.')
※ 引述《sixth (12345(6))》之铭言：
: 我有一个目录，里面有很多层，
: 在里面有些是空目录，有些不是
: 请问如何有效率地把空目录移除