#!/usr/bin/perl -w

use strict;
use XBase;

my $table = XBase->create("name" => "new.dbf",
                "field_names" => [ "NUMERO","NOM","PRENOM","NOMKJ","PRENOMKJ","DATE","SECU","RUE","CODE","VILLE","TEL1","TEL2","INFO","PHOTO","EXTNUM" ],
                "field_types" => [ "C","C","C","C","C","D","C","C","C","C","C","C","M","C","C" ],
                "field_lengths" => [ 8,40,30,16,16,8,31,32,10,25,20,20,10,1,16 ],
                "field_decimals" => [ undef,undef,undef,undef,undef,undef,undef,undef,undef,undef,undef,undef,undef,undef,undef ]);
$table->set_record(0,"S0000001","\"SAMPLE\"","JOHN","","","19800101","Security Social number","1111 Anystreet","","22222 Anytown","Phone number 1","Phone number 2","Comments ...","B","S0000001");
$table->set_record(1,"S0000002","-PROXIMAL CARIES","DEMO","","","19970107","","","","","","","Logicon Caries Detector Demo","","S0000002");
undef $table;