Select Code to Download

use strict;
use warnings;
...
unlink "test_types.dbf", "test_types.dbt";

$dbh->do($def);

use strict;
use warnings;
...
    "field_lengths"  => [  6,    40,    18    ],
    "field_decimals" => [  0,   undef,  2    ]
) or die XBase->errstr;