... my $str = pack "U0C*", @bytes; testing( $channel, $str, length($str) ); ... int testing( in­t channel, char* buf, int len ) {