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

my $name = get_name();
if ( $name )
{
  print "\n My name is $name";
}
else
{
 print "\n I have no name";
}

##</code><code>##

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

if ( get_name() )
{
  print "\n My name is $_";
}
else
{
 print "\n I have no name";
}