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);