package snafu;

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

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

##</code><code>##

unless ( $fsck->foo(\$variable) == SUCCESS_CODE ) {
  die "That was quite grim";
}

##</code><code>##

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

##</code><code>##

unless ( $fsck->foo($variable) ) {
  die "A terrible way to go";
}