use strict;
no utf8;
#use utf8;
use DBI;
my $hDb = DBI->connect('dbi:CSV:f_dir=./tbl', 'usr', 'pwd', 
        {PrintError=> 0, AutoCommit=>1, RaiseError=>1}) 
    or die 'CONNECT ERROR';

eval{$hDb->do('DROP TABLE t1');};
$hDb->do('CREATE TABLE t1 (NO integer, NAME varchar(40))');
$hDb->do('INSERT INTO t1 VALUES(?, ?)', undef, 
     1, "テスト"); # TESUTO in KATAKANA (EUC-JP)
$hDb->do('INSERT INTO t1 VALUES(?, ?)', undef, 
     2, "好き");         # SUKI in KANJI+HIRAGANA(EUC-JP)
my $hSt = $hDb->prepare("SELECT * FROM t1 WHERE NAME like ?");
$hSt->execute("%好%");  #SUKI in KANJI(EUC-JP)
while(my $raD = $hSt->fetchrow_arrayref()) {
  print join(',', @$raD), "\n";
}
$hDb->disconnect();