my $project = APPML::Project->new(
   name  => "sample",
   title => "Sample Application"
);

my $table = $project->add_table(
   name       => "contact",
   caption    => "contact",
   descriptor => "name"
);

my $vc40notnull = AppML::FieldType->new(
    type    => "varchar",
    size    => "40",
    notnull => "1",
);

$table->add_fields(
[
    name    => "name", 
    caption => "name",
    type    => $vc40notnull,
],
[
    # more fields here...
]
);

$project->create();