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

##</code><code>##

  ./yourscript.pl 10 file_to_split

##</code><code>##

  perl yourscript.pl 10 file_to_split