See: Need to delete empty directories.[ you need to go into "depth first" mode, so that you don't change topdir names, before changing topdir's subdirs.

#!/usr/bin/perl
use File::Find;

finddepth sub {
  #return if $_ eq "." or $_ eq "..";
return unless -d;
rmdir($_);
if($! =~ /not empty/){warn "$File::Find::name $!"}
}, @ARGV;
[download]