use strict;
use DBI;

my $Usage = "$0 ";

my $db = DBI->connect("DBI:CSV:");  # use current working directory

$db->do("CREATE TABLE csv_test (id INTEGER, name CHAR(16))");

my $sth = $db->prepare("INSERT INTO csv_test (id,name) values (?,?)");
my @strings = ( "one \x{0661}",
                "two \x{0662}",
                "three \x{0663}" );
binmode STDOUT, ":utf8";
for (0..$#strings) {
    printf "inserting %d,%s\n", $_+1, $strings[$_];
    $sth->execute( $_+1, $strings[$_] );
}
$sth->finish();

$db->disconnect;