E:\data\learning>perl scratch.pl
ok 1 - 44.7 is 44.9-0.2
not ok 2 - 44.7 == 44.9-0.2
#     Failed test (scratch.pl at line 10)
#          got: 44.7
#     expected: 44.7
1..2
# Looks like you failed 1 tests of 2.