use strict;
use warnings;
use MLDBM qw(DB_File Storable);
use Devel::Peek;
use Encode;
use FreezeThaw;
no warnings 'utf8';

$| = 1;

tie my %data, 'MLDBM', 'testmldbm' or die $!;

my $string = "a string with a wide character: \x{0100}";
Dump($string);

#my $fstring = FreezeThaw::freeze($string);

$data{string} = $string;

print "$data{string}\n";