#!/usr/bin/perl
use File::Find;

finddepth sub {
return if $_ eq "." or $_ eq "..";
return unless -d;
rmdir($_);
if($! =~ /not empty/){warn "$File::Find::name $!"}
}, @ARGV;


##</code><code>##

#!/usr/bin/perl
use File::Find;

finddepth sub {
return if (! -d) or ($_ eq '.'|'..');
rmdir($_)}, @ARGV;