my $n = 2 ** 64;

my $m = 2 ** 32;

print ($m % $n);

my $r = ($m % $n);

printf("\n%d\n",$r);

printf("\n%f\n",$r);

4294967296
-1

4294967296.000000