sub add_user {
 if (condition) {
  return 'Oops';
 } else {
  return 'Argh';
 }
 return undef;
}

my $Result = &add_user;
if ($Result) {
 print "Something failed: $Result\n";
}