Hi boby, this file split works under Windows,

use strict;
use warnings;
use File::Split;

my $fs = File::Split->new({keepSource=>'1'});

my $filename = 'E:\test\text.txt';
my $size = (stat($filename))[7]/1024/1024;

#####Based on Number of Files
my $files_out = $fs->split_file({'parts' => sprintf("%.0f",($size/512)
+)}, $filename);
[download]

First look into How do I post a question effectively? and How (Not) To Ask A Question

ikegami++