#!/usr/local/bin/perl

die "Include one arg" if $#ARGV == -1;

open(FD, $ARGV[0]) or die $!;
binmode(FD);

$linecount = 0;
$filenum = 0;
open(OUT, "> " . $ARGV[0] . "." . $filenum) or die $!;
binmode(OUT);
while ($line = <FD>) {
    if ($linecount == 200) {
	close(OUT);
	$filenum++;
	open(OUT, "> " . $ARGV[0] . "." . $filenum) or die $!;
	binmode(OUT);
	$linecount = 0;
    }
    print OUT $line;
    $linecount++;
}
close(OUT);