use File::Find;
use Cwd;
#recursive directory creation http://perlmonks.thepen.com/183899.html

my $dir = "/tstDir";
my $level_one = 0;
my $level_two = 0;
my $source_num = 0;
my $source = "TstRun";
my $MAX_FILES_IN_DIR = 8;
my $file_pointer;

my $curr_dir = depthFirst($dir, 1);
chdir($curr_dir);

for (my $i = 0; $i < 40; $i++){
    if($file_pointer = $MAX_FILES_IN_DIR){
        my $curr_dir = depthFirst($dir, 1);
        chdir($curr_dir);
    }
    open(WRITE_FILE, ">$i");
    print WRITE_FILE "$i";
    close(WRITE_FILE);
    $file_pointer++;
}
print "Directory: $curr_dir\n";
#my $depth = 4;
#my $count = findDir("/tstDir/0/0/TstRun0", $depth, $depth);
print "count: $count\n";
sub depthFirst{
    my ($dir, $depth) = @_;
    my $file_count = 0;
    
    if($depth eq 4){
        $dir = "/tstDir/$level_one/$level_two/$source$source_num";
        print "depth: $depth dir: $dir\n";
        if(-e "$dir"){
            $file_count = findDir($dir, 4, 4);
            print "file count: $count_files\n";
            if($file_count < $MAX_FILES_IN_DIR){
                chdir($dir);
                $file_pointer = $file_count;
                return $dir;
            }else{
                $source_num++;
                depthFirst($dir, 3);
            }
        }else{
            system "mkdir -p $dir";
            $file_pointer = 0;
            return $dir;
        }
        return;
    }elsif($depth eq 3){
         $dir = "/tstDir/$level_one/$level_two/";
         print "depth: $depth dir: $dir\n";
         if(-e "$dir"){
             $files_count = findDir($dir, 3, 3);
             if($file_count < $MAX_FILES_IN_DIR){
                depthFirst($dir, ++$depth);
             }else{
                $level_two++;
                depthFirst($dir, 2);
             }
        }else{
            system "mkdir -p $dir";
            depthFirst($dir, $depth);
        }
    }elsif($depth eq 2){
        $dir = "/tstDir/$level_one/";
        if(-e "$dir"){
            print "depth: $depth dir: $dir\n";
            $file_count = findDir($dir, 2, 2);
            if($file_count < $MAX_FILES_IN_DIR){
                depthFirst($dir, ++$depth);
            }else{
                $level_one++;
                depthFirst($dir, $depth);
            }
        }else{
            system "mkdir -p $dir";
            depthFirst($dir, $depth);
        }
    }else{
        print "depth: $depth dir: $dir\n";
        depthFirst("$dir", ++$depth);
    }    
    
}

sub findDir{
    my ($dir, $min_depth, $max_depth) = @_;
    print "findDir: $dir min: $min_depth max: $max_depth\n";
    my $count_files = 0;
    
    find( {
        preprocess => \&preprocess,
        wanted => \&wanted,
    }, $dir);
    
    #print "count: $count_files\n";
    
    sub preprocess {
        my $depth = $File::Find::dir =~ tr[/][];
        #print "depth: $depth\n";
        return @_ if $depth < $max_depth;
        print "depth: $depth max: $max_depth\n";
        if ($depth == $max_depth){
            print "greping\n";
            return grep { -df } @_;
        }
        return;
    }
    
    sub wanted {
       
        my $depth = $File::Find::dir =~ tr[/][];
        return if $depth < $min_depth;
        print "in wanted\n";
        
        print "file: $_\n";
        if(!($_ =~ m/^\./)){
            $count_files++;
        }
    }
    return $count_files;
    
}
[download]