Select Code to Download

my $nbLinesPerFile=$totalCount;

my $nbLinesPerFile=int( $totalCount / $nbFiles );

use Tie::File;
use Carp;
...
        or croak("failed to tie '$filename' - $!");
    scalar @array
}

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