perl -e '$a = 1e-3; $b = 0.001; if ( $a eq $b ) { print "Numbers are equal!\n" } else {  print "Numbers are not equal!\n" }'
Numbers are equal!