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