Select Code to Download

#!/usr/bin/perl -w
use strict;
...
  my $cursor = $db->db_cursor();
  my $value;
  my $status = $cursor->c_get($key, $value, DB_SET_RANGE);

>>store: $VAR1 = "\x{e4}\x{e4}";
<<store: $VAR1 = "\303\244\303\244";
...
<<store: $VAR1 = "\303\244\303\244";
>>fetch: $VAR1 = "\x{e4}\x{e4}";
<<fetch: $VAR1 = "\x{fffd}\x{fffd}";