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

##</code><code>##

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

##</code><code>##

use File::Find;
finddepth sub {(!-d or /^.{1,2}$/);rmdir;
warn $File::Find::name,$! if $! =~ /not empty/},@ARGV;