sub get_table_list ($) {
	my $log = shift;
	my $dbobject = DBI->connect("DBI:XBase:".$basedir.$logdir)
		or die $DBI::errstr;
	my @tables = $dbobject->tables;
	print "Database contains the following tables:\n________________________\n";
	foreach my $table (@tables) {
		print "$table\n";
		read_log($table);
	}
	print"\n\n";
        $dbobject->disconnect;
}