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

finddepth (\&empdir, ($ARGV[0] || '.'));

sub empdir {
   return unless -d;
   rmdir($_);
   mkdir "/tmp/$_";  # adicionalmente copiamos a temp para ver qué se ha borrado
}

#--------------------------------------------