Select Code to Download

$ perl -wMstrict -le 'my $a=5.10*100; print "plain: ",$a, "\nint: ",
  int($a); printf "%%d: %d\n%%f: %.20f\n",$a,$a;'
...
int: 509
%d: 509
%f: 509.99999999999994315658