"SELECT name,age FROM ?" # wrong will probably fail.

With most drivers, placeholders can't be used for any element of a statement that would prevent the database server from validating the statement and creating a query execution plan for it.

##</code><code>##

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;
}