require DBI;
my $dbh = DBI->connect( ..blah.. );
my $sth = $dbh->prepare('SHOW TABLES');
$sth->execute();
while (my ($table) = $sth->fetchrow_array ) {
    print "$table\n";
}