##
sub print_chrcodes
{
my $str = shift;
my $ret;
use bytes; #<<<<<<<<",$ascval) if($ascval >= 128);
}
return $ret;
}
##
##
$hash->{TITLE}="f\xc3\xa4ce=\xe2\x98\xbb";
print "TITLE=$hash->{TITLE}\n";
my $nfreeze = Storable::nfreeze($hash);
my $obj = Storable::thaw($nfreeze);
print '${^UNICODE}='.${^UNICODE}."\n";
print "TITLE=$obj->{TITLE}\n";