perl -we '$a = 1e-3; $b = 0.001; if ( $a eq $b ) { print "$a and $b are equal.\n" }'