sub otto
{
   ...
   return new BlubbError(...) if $fehlerausloeser;
   ...
   return 0, $result;
}
...
sub uwe
{
   ...
   my($status, $result) = otto(...);
   return $status if $status; # Fehler weiterreichen
   ...
}
...
# Irgendwo, wo mich Fehler interessieren:
my $status = uwe(...);
tuWasDamit($status) if $status;