Select Code to Download

use File::Find qw(finddepth);
finddepth sub { -d and rmdir $_ and printf STDERR "rmdir: %s\n", $File
+::Find::name }, @dirs;

finddepth sub { -d and rmdir $_ }, @dirs;