sub shorten_dir
{
  my $dir=shift;
  my $max=shift;
  return 0 unless( opendir(my $dh, $dir) );
  my @dirs=sort{$a->[1] <=> $b->[1]} map {[$_, -M $_]} grep {-d $_} map {"$dir/$_"} readdir($dh);
  closedir($dh);
  remove_dir(shift(@dirs)->[0]) while(@dirs>$max);
  return 1;
}

sub remove_dir
{
  my $dir=shift;
  return unless(-d $dir);

  # Verezeichnis löschen
  #...
}