sub pack_str {
    my ( $s ) = @_;

    return pack 'B*', $s;
    }