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

##</code><code>##

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