$ perl -le 'print "ok" if 1.0 + 5e-200 != 1.0;'
ok