sub utf8_to_latin1 {
# return( pack("U0C*", unpack(  "U*",@_[0]) ) );
  return( pack(  "C*", unpack("U0U*",@_[0]) ) );
}

##</code><code>##

$native_string  = pack("C*", unpack("U*", $Unicode_string));