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

                sub remove_dir
                {
                        my $dirDel=shift;
                        #print "\n".$dirDel."\n";
                        return unless(-d $dirDel);
                        chdir(".$dirResults");
                        system ("rm -rf ".$dirDel."");
                        print "\n\nOK, Verzeichnis ".$dirDel." geloescht!\n";

                }