use strict;
use warnings;
use DBI;

my $dbf_dir = '.';
my $table   = 'test_types';

my $dbh = DBI->connect("DBI:XBase:$dbf_dir") or die $DBI::errstr;

my $def =<<"STR";
CREATE TABLE $table (
    str_1 CHAR,
    num_1 NUMERIC(8,2),
    num_2 INTEGER,
    num_3 FLOAT,
    bol_1 BOOLEAN,
    blb_1 BLOB,
    blb_2 MEMO,
    dat_1 DATE,
    tim_1 TIME,
    dat_2 DATETIME
)
STR

unlink "test_types.dbf", "test_types.dbt";

$dbh->do($def);

##</code><code>##

use strict;
use warnings;

use XBase;

my $newtable = XBase->create(
    "name"           => "with_b.dbf",
    "field_names"    => [ "ID", "MSG", "BIN" ],
    "field_types"    => [ "N",  "C",   "B"   ],
    "field_lengths"  => [  6,    40,    18    ],
    "field_decimals" => [  0,   undef,  2    ]
) or die XBase->errstr;