use XBase;

...


 my $new_table = XBase->create("name" => "$filename.$ext",
                                      "field_names" => @column_names,
                                      "field_types" => undef,
                                      "field_lengths" => undef,
                                      "field_decimals" => undef);
     
    my $i=0;
        foreach my $record (@records) {
            $new_table->set_record_hash($i,%$record);
            $i++;
        }

        $new_table->close;


##</code><code>##

 my $new_table = XBase->create("name" => "$filename.$ext",
                                      "field_names" => @column_names,
                                      "field_types" => undef,
                                      "field_lengths" => undef,
                                      "field_decimals" => undef);
        
        my $dbf = new XBase "$filename.$ext" or Xina::util::graceful_exit("xiexport","Problems with DBF file.","$filename.$ext:".XBase->errstr." from $remote_host");

        my $i=0;
        foreach my $record (@records) {
            $dbf->set_record_hash($i,%$record);
            $i++;
        }

        $dbf->close;