my $dbh = DBI->connect("dbi:mysql:host=$host", $user, $pass) or die "Database connection not made: $DBI::errstr";
my $sql = "show tables";
my $sth = $dbh->prepare($sql) or die $dbh->errstr(); 
$sth->execute() or die $dbh->errstr();
	
while (my @row = $sth->fetchrow_array()) {
	print $row[0]."\n";
	};