package snafu;

sub foo {
  my $bar = shift;
  # Interesting things happen
  $$bar = $baz;

  if ( $things_worked ) {
    return SUCCESS_CODE;
  else {
    return FAILURE_CODE;
  }
}