#! /usr/bin/perl

use strict;
use warnings;
use File::Find;

my $dir = './testdir';
my @dirs;
find(\&get_dir,$dir);

rmdir($_) for(reverse(@dirs)); # rmdir löscht nur leere Verzeichnisse

sub get_dir{
  push(@dirs,$File::Find::name) if(-d $_);
}# get_dir