perl -MFile::Find -e 'finddepth( { no_chdir => 1, wanted => sub { rmdir } }, @ARGV )'