(my $sql = <<SQLCREATE) =~ s/^\s+//gm;
        CREATE TABLE $table 
	(id INTEGER NOT NULL AUTO_INCREMENT,
	 name CHAR(40) NOT NULL,
	 address CHAR(40)
	 PRIMARY KEY (id)
	)
SQLCREATE
    $sql =~ s/\s+$//gm;

##</code><code>##

$sth = $dbh->dosql($sqls{CreateNameTable});