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