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