sub cond (&$$) {
  (my $check, local $_, my $default) = @_;
  $check->() ? $_ : $default;
}