#!/usr/bin/env perl
use strict;
use warnings;

my $file_name = $ARGV[0];
print "split file: $file_name into 500mb chunks\n";
qx(split -b 500mb $file_name "$file_name.part");
system("mkdir -p /tmp/split_files");
qx(mv $file_name /tmp/split_files);