use File::Split;
File::Split
->new({keepSource=>'1'})
->split_file({parts=>$nbFiles},$newfile);