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