use strict;
use warnings;

use DBI;
my $dbh = DBI->connect("dbi:ODBC:DSN",'username','pwd')
  || die "Failed to connect to database";

my $sth = $dbh->prepare("CREATE TABLE my_new_table (
  [userid] integer,
  [entry_date] date,
  [true or false ] byte,
  [TextField]  Text(25),
  [Long Integers] long,
  [Just_an_Integer] integer,
  [A_Memo Field] Memo,
  [primary_unique_key] Text(32),
  CONSTRAINT [Index1] 
     PRIMARY KEY ([primary_unique_key]))"
   ) || die "failed to prepare";

$sth->execute() || die "failed to execute";