#!/usr/bin/perl
use strict;
use DBI;
my $dbfile = 'MapTiles.sqlitedb';
my $dbh = DBI->connect("dbi:SQLite:dbname=$dbfile","","");
print join "\n",$dbh->tables;