A program that contains a floating-point comparison.
#!/usr/local/bin/perl $value1 = 14.3; $value2 = 100 + 14.3 - 100; if ($value1 == $value2) { print("value 1 equals value 2\n"); } else { print("value 1 does not equal value 2\n"); }