sub NewTable
{
   $table = $_[0];
   $column = $_[1];
   $indexname = $_[2];

   $sqltext =  "CREATE TABLE $table (
        id INTEGER  PRIMARY KEY AUTOINCREMENT,
        $column VARCHAR)";
   $dbh->do($sqltext);
   $insertrow = $dbh->prepare ("INSERT into $table ($column) values(?)");
   $insertrow->execute("Dummy");
   $sqltext = "CREATE INDEX $indexname ON $table ($column)";
   $dbh->do ($sqltext);
   $id = $dbh->last_insert_id(undef, undef, undef, undef);
}