my $dbh_t = DBIx::Threaded->connect("DBI:mysql:database=$database;host=$host", $
+user, $password);
DBIx::Threaded->dbix_threaded_create_pool(10);

my $dbh = DBI->connect("DBI:mysql:database=$database;host=$host", $user, $passwo
+rd);

my $sth = $dbh->prepare("SELECT id,domain,DATE(created) FROM domain_list");
$sth->execute();