open(FH, "<DCdata.bin") or die "Can't open DCdata.bin file for reading!";
binmode(FH); 

while (<FH>)
{
	$index = 0;
	
	foreach $field_name (keys (%disk_structure)) {
		
		$value = read (FH, $buffer, ($field_name * 8), 0);
		print tell (FH);
		print "\n";
	}
	
	foreach $f_name (keys (%disk_structure_record)) {
		
		$value_record = read (FH, $buffer, ($f_name * 8), 0);
		#print tell (FH)\n;
	}
}

close(FILE);