my $database = new XBase $database_file;
  my $records = $database->last_record() + 1;