sub latin1_to_utf8 {
return( pack( 'U*', unpack("C*", @_[0] ) ) );
}

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