use strict;
use warnings;

files();

sub files {
    foreach (@ARGV) {

        print "processing $_\n";

        open my $fh, '<', $_ || die "cannot open $_ $!";
        binmode($fh);

        my $num      = '000';
        my $iterator = 0;

        split_file( $fh, $num, $_, $iterator );

    }
}

sub split_file {

    my ( $fh, $num, $name, $iterator ) = @_;

		my $split_fh = "$name" . '.split';

		open( my $out_file, '>', $split_fh . $num ) || die "cannot open $split_fh$num $!";
		binmode($out_file);
		
			while (1) {
				
                $iterator++;
				my $buf;
				read( $fh, $buf, 32 );
				print( $out_file $buf );
				my $len = length $buf;

				if ( $iterator == 67108864 ) {    #split into 2gb chunks
					
					$iterator = 0;
					$num++;
					split_file( $fh, $num, $name );

				}
			    elsif ( $len !~ "32" ) {
				last;
		}
	}
}