#Used to find files
use File::Find;
#Used to move files to new location
use File::Copy;

#Some defined variables
my $dir_count = 1; #Keeps count of directories of each chunk
my $total_size = 0; #Used to count toltal count of file sizes
my $dir_chunk = 10000000; #Size directory should be (aka chunk)

#Starts the actual File Search & Replace
print "Starting Search and Replace - \n";
find (\&eachFile, "/asdf/");
print "Completed\n";

sub eachFile {
        my $filename = $_;
        my $fullpath = $File::Find::name;
        #remember that File::Find changes your CWD, 
        #so you can call open with just $_
    if(-f "$fullpath"){
        my $size = -s $fullpath;
        $total_size+=$size;
        if($total_size > $dir_chunk) {
            $total_size=$size;
            $dir_count++;
        }
        my $move_dir = "/chunks/$dir_count/";
        if(!(-e "$move_dir")) {mkdir("$move_dir",0777);}
        print "\t$filename to $move_dir\n";
        move("$fullpath","$move_dir$filename");
    }
}