package snafu;
sub foo {
  # interesting things happen
  $_[0] = $baz;
  if ( $things_worked ) {
    return SUCCESS_CODE;
  else {
    return FAILURE_CODE;
  }
}