Select Code to Download

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

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