unless ($x <= $inf) { print "\$x is definitely a NaN\n" } else { print "\$x is definitely NOT a NaN\n" }