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

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