read EP, $in, 2;
	$rec_len = unpack ("S", $in);