Help for this page
my $diff = ($new*10000) - ($old*10000);
my $diff = 0 + sprintf '%.0f', ($new*10000) - ($old*10000);