Create dbf in perl with XBase

Need example of code in perl to create a dbf and insert some records. The result of the script must be a [login to view URL] with the follow columns: - ID Numeric - DATE date - MSG text and the value: - 1, '2010-01-06', 'line 1'; - 2, '2010-06-07', 'line 2'; - 3, '2010-08-16', 'line 3'; - 4, '2010-10-16', 'line 4';