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

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

##</code><code>##

sub add_user {
 if (condition) {
  return 0,'Oops';
 } else {
  return 0,'Argh';
 }
 return 1;
}

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

##</code><code>##

sub add_user {
 if (condition) {
  return 1;
 } else {
  return 2;
 }
 return 0;
}

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