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;