#!/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;