open(IN, $ARGV[0])||die "Cannot open $ARGV[0]:$!\n";
die "No number of lines\n" unless($ARGV[1] =~ /^\d+$/);
my $lines = 0;
$lines ++ while(<IN>);
close IN;
print "lines per output file = " . int($lines/$ARGV[1]) . "\n";