finddepth sub {(!-d or /^.{1,2}$/)||rmdir($_)},@ARGV;