#! /usr/bin/perl

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

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

for my $dirs(reverse(@dirs)){
  opendir(DIR,$dirs) or die $!;
  unlink $_ for(readdir(DIR));
  closedir DIR;
  rmdir($dirs);  # rmdir löscht nur leere Verzeichnisse
}


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