http://qs321.pair.com?node_id=1204739


in reply to File::Find help

use File::Find; finddepth sub { -d $_ and rmdir $_ }, "yourtopoftree";

should work to remove empty directories.