Select Code to Download

package snafu;

...
    return FAILURE_CODE;
  }
}

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

package snafu;
sub foo {
...
    return FAILURE_CODE;
  }
}

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