$a = 'string';
if (defined ($a <=> $a)) { print "Oops"; }

##</code><code>##

my $Inf = 9**9**9;
my $NaN = sin($Inf);
print "inf is: $Inf\n", "NaN is: $NaN\n";