finddepth(\&wanted, "...");
sub wanted { -d $_ ? rmdir $_ : unlink $_ }