my ($filename) = shift @_;
	my ($ref_data) = shift @_;
	my ($buff, $num_records);

	open DATA, "<", $filename	 or die "Cannot open file $filename - $!\n";
	binmode(DATA);
	while (read(DATA, $buff, 4800)) {
		#print "$buff\n";
		# update ref_data, recording values of data, etc
	}	
	print "Processed $num_records records in file $filename\n";
	close (DATA);