my $parts = shift; ### how many parts to split
my @file = @ARGV;  ### the files to split