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

$| = 1;

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

print Dumper($db->{DB});

$db->{DB}->Filter_Push('utf8');
if($db->{DB}->can('Filter_Push')) {
    print "can Filter_Push\n";
}

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

$data{string} = $string;

print "$data{string}\n";