You want to use the DBI "catalog methods" to retrieve table information. That way, your code will also work on other databases than SQLite:

use Data::Dumper;
my $sth = $dbh->table_info;
my $columns = $sth->fetchall_arrayref({});
print Dumper $columns;
[download]