Re^5: help figuring out what a section of script does

[poj]

What do you get running this

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

poj