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