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

##</code><code>##

print cond { fileno($_} } $fh, 'undef';