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";
}