Select Code to Download

  if ( $obj == NaN or $obj ) # true if true or NaN

  sub isTrue # !
  {
     my $obj = shift;
     $obj == NaN || $obj
  }