#!/usr/bin/perl
use strict;
use warnings;
use DBI qw(data_string_desc);
use Encode qw(decode from_to);

# utf8-off ascii
my $str = 'abc';
my $res = data_string_desc($str);
print "with 'abc'...\n$res\n\n";

# utf8-on ascii
$str = decode('utf8','abc');
$res = data_string_desc($str);
print "with utf8 flagged 'abc'...\n$res\n\n";

# utf8-off non-ascii
$str = "あいう";
$res = data_string_desc($str);
print "with 'あいう'...\n$res\n\n";

# utf8-on non-ascii
$str = decode('utf8','あいう');
$res = data_string_desc($str);
print "with utf8 flagged 'あいう'...\n$res\n\n";

# utf8-on non-ascii euc-jp
$str = 'あいう';
from_to($str,'utf8','euc-jp');
utf8::upgrade($str);
$res = data_string_desc($str);
print "with utf8 flagged, euc-jp 'あいう'...\n$res\n\n";