Help for this page
#!/usr/bin/perl use warnings; ... while (my @row = $sth->fetchrow_array) { print "@row\n"; }
$db->do($_) for 'PRAGMA FOREIGN_KEYS = ON', ... 'name_id INTEGER, topic_id INTEGER,', 'FOREIGN KEY (name_id) REFERENCES user_tbl(id),', 'FOREIGN KEY (topic_id) REFERENCES topic_tbl(id))';