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

##</code><code>##

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

##</code><code>##

sub get_name
{
  dblookup();
}

##</code><code>##

*get_name = \&dblookup;

##</code><code>##

if ( my $name = get_name() )