sub parsename()
{
  my $dsparse = 0;
  if ($dsparsename == 1)
  {
    eval {
      my $result = $sexcoder->getsexcode($countrycode, $name);
      $parsedname{'TITLE'} = $result->{title};
      $parsedname{'FIRST'} = $result->{first};
      $parsedname{'MIDDLE'} = $result->{middle};
      $parsedname{'LAST'} = $result->{last};
      $parsedname{'SUFFIX'} = $result->{suffix};
      $parsedname{'PROFSFX'} = $result->{profsfx};
      $dsname = $result->{name};
      $data->{'out$gender'} = $result->{gender};
      $data->{'out$sexcode'} = $result->{sexcode};
      $dsparse = 1;
    };
  }
  return $dsname if $dsparse == 1;

  # Fall back to simpler parser if $dsparse != 1 or $dsparsename != 1

}