Как перегнать dbf --> txt

(Прошу прощения, форматирование слетело) Для dbf есть интерфейсы и DBI? и нативный (DBD-XBase), соотвественно (c нативным) примерно так:

use XBase;
my $table = new XBase "dbase.dbf" or die XBase->errstr;
for (0 .. $table->last_record) {
   my @record = $table->get_record($_);
   shift @record; #если _DELETED не нужно
   print join "\t", @record, "\n";
}