#!/usr/bin/perl



open(SER,"./ser");

binmode SER;



################ define ser file numbers & TD points ###############



$initnr = 1; #1

$endnr = 2; # last file number +11



$tdpoints = 20;

$directtdpoints = 1024;



####################################################################





$bytes = 4*$directtdpoints;



for ($i = $initnr; $i<= $endnr; $i++) 

{

	open( "SER$i", ">./ser$i");

	binmode "SER$i";



}





for ($j=0; $j < $tdpoints; $j++)

{

	for ($i = $initnr; $i<= $endnr; $i++)

	{

		$file = "SER$i";

		read SER, $buffer, $bytes;

		print $file $buffer;

	}		

}





for ($i = $initnr; $i< $endnr; $i++) 

{

	close("SER$i");



}



close(SER)