#!/usr/bin/perl
use strict;
use DBI;

my $dbfile = 'MapTiles.sqlitedb';
my $dbh = DBI->connect("dbi:SQLite:dbname=$dbfile","","");

my $sth = $dbh->table_info('%', '%', '%');
while (my $r = $sth->fetchrow_hashref()) {
  print join " ",$_,$r->{$_},"\n" for keys %$r;
  print "\n";
}