#!/usr/local/bin/perl

$threshold = 200;

$filecount = 0;
$linecount = 0;
$filename = sprintf("gale2006/all-test.gb.%03d", $filecount);
open(OUT, "> $filename") or die $!;

open(DR, "all-test.gb") or die $!;
while ($line = <DR>) {
    if ($linecount % $threshold == 0 and $linecount != 0) {
	close(OUT);
	$filecount++;
	$filename = sprintf("gale2006/all-test.gb.%03d", $filecount);
	open(OUT, "> $filename") or die $!;
    }

    print OUT $line;
    $linecount++;

}

close(OUT);
close(DR);