Select Code to Download

#!/usr/bin/perl
use strict;
...
Animal1:       dog
Animal2: cat
User Said: dog cat

my $dbh = DBI->connect("dbi:SQLite:dbname=$dbfile","","",{RaiseError =
+> 1})
    or die "Couldn't connect to database: " . DBI->errstr;

#code could look like this (untested):
my $aref = $sth->fetchall_arrayref();
...
{
   print "\t$cptanswer\t$insid\t$preauth\t$updated\n";
}

while (@data = $sth->fetchrow_array()) {
                my $cptanswer = $data[1];
...
                my $updated = $data[5];
                print "\t$cptanswer\t$insid\t$preauth\t$updated\n";
        }