sub get_name
{
  my $name = dblookup() || undef;
  $name;
}