Select Code to Download

                  ____
1.15 base10 = 1.001001 base2

use feature qw( say );
use Math::Round qw( round );
...
my $x = 3010*1.15;
say round($x);
say round(round($x * 10**5) / 10**5);  # 5 decimal places of precision

3461
3462