Select Code to Download

#!/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))';