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