sub sg {
my $result;

  die "COND isn't valid" if (COND eq undef);

  if (COND) {
    $result = 1;
  } else {
    $result = 2;
  };

  die "result isn't valid" if ($result eq undef);

  return $result;
}