my @tests = (
   [ '00-7F',        "a"           ],
   [ '80-FF,UTF8=0', _d(chr(0xE9)) ],
   [ '80-FF,UTF8=1', _u(chr(0xE9)) ],
   [ '>FF',          chr(0x2660)   ],
);

plan tests => 0+@tests;

my $dbh = ... connect and setup as you wish ...

my $sth = $dbh->prepare('SELECT ?');
for (@tests) {
   my ($test_name, $input) = @$_;

   $sth->execute($input) or die;
   my $row = $sth->fetch() or die;
   $sth->finish() or die if $row;

   my $got = $row->[0];  
   is(printable($got), printable($input), $test_name);
}