$db = Mysql->connect($host, $database, $user, $password);

$db->selectdb($database);

@tables = $db->listtables;

foreach $table (@tables) {
print $table."\n<BR>";
}