gistfile1.txt

  sub foo :lvalue ($new) {
    if (want("lvalue")) {
      if ($new >= 0) {
        $variable = $new;
      } else {
	croak "Attempt to store negative number in foo";
      }
    } else {
      return $variable;
    }
  }