How do I create or test for NaN or infinity in Perl?

Question

How do I create or test for NaN or infinite values in Perl?

Answer 1

print "Is NaN\n" if $a eq 'nan';
print "Is Inf\n" if $a eq 'inf' or $a eq '-inf';

EDIT: Fixed for negative infinity.